develooper Front page | perl.perl5.porters | Postings from January 2018

[perl #132783] Blead Breaks CPAN: ADAMK/SQL-String-0.02.tar.gz

Thread Previous | Thread Next
From:
James E Keenan via RT
Date:
January 29, 2018 23:05
Subject:
[perl #132783] Blead Breaks CPAN: ADAMK/SQL-String-0.02.tar.gz
Message ID:
rt-4.0.24-14575-1517267109-109.132783-15-0@perl.org
On Mon, 29 Jan 2018 20:25:24 GMT, slaven@rezic.de wrote:
> 
> This is a bug report for perl from slaven@rezic.de,
> generated with the help of perlbug 1.41 running under perl 5.27.8.
> 
> 
> -----------------------------------------------------------------
> The test suite of SQL-String-0.02 started to fail with 5.27.7
> (there's no bisect result yet):
> 
> ...
> # Looks like you planned 78 tests but ran 79.
>  t/02_main.t .....
> Dubious, test returned 255 (wstat 65280, 0xff00)
>  All 78 subtests passed
> ...
> 
> On first glance it seems that we have now a warning more than
> with 5.27.6.
> 

The additional warning is caught in a test related to overloading of the .= operator (approx test #47 in original).

#####
$ cat 132783-Sql-String-overload-dotequals.t 
use strict;
BEGIN { $^W = 1; }
use Test::More qw(no_plan); # tests => 78;
use SQL::String ();
my $SQL  = SQL::String->new('foo = ?', 2);
{
    local $SIG{__WARN__} =
        sub { ok( 1, 'Caught warning during undef concat' ) };
	$SQL .= undef;
}
isa_ok( $SQL, 'SQL::String' );
#####

Results under perl-5.26.0's prove:

#####
ok 1 - Caught warning during undef concat
ok 2 - An object of class 'SQL::String' isa 'SQL::String'
1..2
ok
All tests successful.
Files=1, Tests=2,  0 wallclock secs ( 0.02 usr  0.00 sys +  0.05 cusr  0.00 csys =  0.07 CPU)
Result: PASS
#####

Results under blead's prove:

#####
ok 1 - Caught warning during undef concat
ok 2 - Caught warning during undef concat
ok 3 - An object of class 'SQL::String' isa 'SQL::String'
1..3
ok
All tests successful.
Files=1, Tests=3,  0 wallclock secs ( 0.02 usr  0.00 sys +  0.03 cusr  0.00 csys =  0.05 CPU)
Result: PASS
#####

-- 
James E Keenan (jkeenan@cpan.org)

---
via perlbug:  queue: perl5 status: new
https://rt.perl.org/Ticket/Display.html?id=132783

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About