"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "cpan/Scalar-List-Utils/t/lln.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.

lln.t  (perl-5.32.0-RC0.tar.xz):lln.t  (perl-5.32.0-RC1.tar.xz)
skipping to change at line 13 skipping to change at line 13
use strict; use strict;
use warnings; use warnings;
use Test::More tests => 19; use Test::More tests => 19;
use Scalar::Util qw(looks_like_number); use Scalar::Util qw(looks_like_number);
foreach my $num (qw(1 -1 +1 1.0 +1.0 -1.0 -1.0e-12)) { foreach my $num (qw(1 -1 +1 1.0 +1.0 -1.0 -1.0e-12)) {
ok(looks_like_number($num), "'$num'"); ok(looks_like_number($num), "'$num'");
} }
is(!!looks_like_number("Inf"), $] >= 5.006001, 'Inf'); is(!!looks_like_number("Inf"), $] >= 5.006001, 'Inf');
is(!!looks_like_number("Infinity"), $] >= 5.008, 'Infinity'); is(!!looks_like_number("Infinity"), $] >= 5.008, 'Infinity');
is(!!looks_like_number("NaN"), $] >= 5.008, 'NaN'); is(!!looks_like_number("NaN"), $] >= 5.008, 'NaN');
is(!!looks_like_number("foo"), '', 'foo'); is(!!looks_like_number("foo"), '', 'foo');
is(!!looks_like_number(undef), '', 'undef'); is(!!looks_like_number(undef), '', 'undef');
is(!!looks_like_number({}), '', 'HASH Ref'); is(!!looks_like_number({}), '', 'HASH Ref');
is(!!looks_like_number([]), '', 'ARRAY Ref'); is(!!looks_like_number([]), '', 'ARRAY Ref');
use Math::BigInt; use Math::BigInt;
my $bi = Math::BigInt->new('1234567890'); my $bi = Math::BigInt->new('1234567890');
is(!!looks_like_number($bi), 1, 'Math::BigInt'); is(!!looks_like_number($bi), 1, 'Math::BigInt');
is(!!looks_like_number("$bi"), 1, 'Stringified Math::BigInt is(!!looks_like_number("$bi"), 1, 'Stringified Math::BigInt');
');
{ package Foo; { package Foo;
sub TIEHASH { bless {} } sub TIEHASH { bless {} }
sub FETCH { $_[1] } sub FETCH { $_[1] }
} }
my %foo; my %foo;
tie %foo, 'Foo'; tie %foo, 'Foo';
is(!!looks_like_number($foo{'abc'}), '', 'Tied'); is(!!looks_like_number($foo{'abc'}), '', 'Tied');
is(!!looks_like_number($foo{'123'}), 1, 'Tied'); is(!!looks_like_number($foo{'123'}), 1, 'Tied');
is(!!looks_like_number("\x{1815}"), '', 'MONGOLIAN DIGIT FIVE'); is(!!looks_like_number("\x{1815}"), '', 'MONGOLIAN DIGIT FIVE');
# We should copy some of perl core tests like t/base/num.t here # We should copy some of perl core tests like t/base/num.t here
 End of changes. 4 change blocks. 
13 lines changed or deleted 12 lines changed or added

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