Update to Scalar-List-Utils-1.15

[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 80b0996..0324d7b 100644 (file)
--- a/ext/List/Util/t/lln.t
+++ b/ext/List/Util/t/lln.t
@@ -1,14 +1,4 @@
 #!/usr/bin/perl -w
-# -*- perl -*-
-
-
-#
-# $Id: $
-# Author: Slaven Rezic
-#
-
-use strict;
-use vars qw(%Config);
 
 BEGIN {
     unless (-d 'blib') {
@@ -23,25 +13,18 @@ BEGIN {
     }
 }
 
+use strict;
+use Test::More tests => 12;
 use Scalar::Util qw(looks_like_number);
 
-my $i;
-sub ok { print +(($_[0] eq $_[1]) ? "": "not "), "ok ",++$i,"\n" }
-
-print "1..12\n";
+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("1"),       1);
-ok(!!looks_like_number("-1"),      1);
-ok(!!looks_like_number("+1"),      1);
-ok(!!looks_like_number("1.0"),     1);
-ok(!!looks_like_number("+1.0"),            1);
-ok(!!looks_like_number("-1.0"),            1);
-ok(!!looks_like_number("-1.0e-12"), 1);
-ok(!!looks_like_number("Inf"),     $] >= 5.006001);
-ok(!!looks_like_number("Infinity"), $] >= 5.008);
-ok(!!looks_like_number("NaN"),     $] >= 5.008);
-ok(!!looks_like_number("foo"),     '');
-ok(!!looks_like_number(undef),     $] < 5.009002);
-# That's enough - we trust the perl core tests like t/base/num.t
+is(!!looks_like_number("Inf"),     $] >= 5.006001,     'Inf');
+is(!!looks_like_number("Infinity"), $] >= 5.008,       'Infinity');
+is(!!looks_like_number("NaN"),     $] >= 5.008,        'NaN');
+is(!!looks_like_number("foo"),     '',                 'foo');
+is(!!looks_like_number(undef),     $] < 5.009002,      'undef');
 
-__END__
+# We should copy some of perl core tests like t/base/num.t here