Update to Scalar-List-Utils-1.21 from CPAN

[p5sagit/p5-mst-13.2.git] / ext / List-Util / t / lln.t

diff --git a/ext/List-Util/t/lln.t b/ext/List-Util/t/lln.t
index 4ec7719..d31633b 100644 (file)
--- 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