diff options
Diffstat (limited to 'ext/List-Util/t/lln.t')
-rw-r--r-- | ext/List-Util/t/lln.t | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/ext/List-Util/t/lln.t b/ext/List-Util/t/lln.t index 4ec77199fc..d31633be6f 100644 --- a/ext/List-Util/t/lln.t +++ b/ext/List-Util/t/lln.t @@ -14,7 +14,7 @@ BEGIN { } use strict; -use Test::More tests => 16; +use Test::More tests => 18; use Scalar::Util qw(looks_like_number); foreach my $num (qw(1 -1 +1 1.0 +1.0 -1.0 -1.0e-12)) { @@ -31,7 +31,16 @@ is(!!looks_like_number([]), '', 'ARRAY Ref'); use Math::BigInt; my $bi = Math::BigInt->new('1234567890'); -is(!!looks_like_number($bi), '', 'Math::BigInt'); +is(!!looks_like_number($bi), 1, 'Math::BigInt'); is(!!looks_like_number("$bi"), 1, 'Stringified Math::BigInt'); +{ package Foo; +sub TIEHASH { bless {} } +sub FETCH { $_[1] } +} +my %foo; +tie %foo, 'Foo'; +is(!!looks_like_number($foo{'abc'}), '', 'Tied'); +is(!!looks_like_number($foo{'123'}), 1, 'Tied'); + # We should copy some of perl core tests like t/base/num.t here |