"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "cpan/Scalar-List-Utils/t/reftype.t" between
perl-5.32.0-RC0.tar.xz and perl-5.32.0-RC1.tar.xz

About: Perl (Practical Extraction and Report Language) is a high-level, general-purpose, interpreted, dynamic programming language. Release candidate.

reftype.t  (perl-5.32.0-RC0.tar.xz):reftype.t  (perl-5.32.0-RC1.tar.xz)
skipping to change at line 21 skipping to change at line 21
# Ensure we do not trigger and tied methods # Ensure we do not trigger and tied methods
tie *F, 'MyTie'; tie *F, 'MyTie';
my $RE = $] < 5.011 ? 'SCALAR' : 'REGEXP'; my $RE = $] < 5.011 ? 'SCALAR' : 'REGEXP';
my $s = []; # SvTYPE($s) is SVt_RV, and SvROK($s) is true my $s = []; # SvTYPE($s) is SVt_RV, and SvROK($s) is true
$s = undef; # SvTYPE($s) is SVt_RV, but SvROK($s) is false $s = undef; # SvTYPE($s) is SVt_RV, but SvROK($s) is false
my $t; my $t;
my @test = ( my @test = (
[ undef, 1, 'number' ], [ undef, 1, 'number' ],
[ undef, 'A', 'string' ], [ undef, 'A', 'string' ],
[ HASH => {}, 'HASH ref' ], [ HASH => {}, 'HASH ref' ],
[ ARRAY => [], 'ARRAY ref' ], [ ARRAY => [], 'ARRAY ref' ],
[ SCALAR => \$t, 'SCALAR ref' ], [ SCALAR => \$t, 'SCALAR ref' ],
[ SCALAR => \$s, 'SCALAR ref (but SVt_RV)' ], [ SCALAR => \$s, 'SCALAR ref (but SVt_RV)' ],
[ REF => \(\$t), 'REF ref' ], [ REF => \(\$t), 'REF ref' ],
[ GLOB => \*F, 'tied GLOB ref' ], [ GLOB => \*F, 'tied GLOB ref' ],
[ GLOB => gensym, 'GLOB ref' ], [ GLOB => gensym, 'GLOB ref' ],
[ CODE => sub {}, 'CODE ref' ], [ CODE => sub {}, 'CODE ref' ],
[ IO => *STDIN{IO},'IO ref' ], [ IO => *STDIN{IO}, 'IO ref' ],
[ $RE => qr/x/, 'REGEEXP' ], [ $RE => qr/x/, 'REGEEXP' ],
); );
foreach my $test (@test) { foreach my $test (@test) {
my($type,$what, $n) = @$test; my($type,$what, $n) = @$test;
is( reftype($what), $type, $n); is( reftype($what), $type, $n);
next unless ref($what); next unless ref($what);
bless $what, "ABC"; bless $what, "ABC";
is( reftype($what), $type, $n); is( reftype($what), $type, $n);
 End of changes. 1 change blocks. 
12 lines changed or deleted 12 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)