1#!/usr/bin/perl -w 2# -*- perl -*- 3 4 5# 6# $Id: $ 7# Author: Slaven Rezic 8# 9 10use strict; 11use vars qw(%Config); 12 13BEGIN { 14 unless (-d 'blib') { 15 chdir 't' if -d 't'; 16 @INC = '../lib'; 17 require Config; import Config; 18 keys %Config; # Silence warning 19 if ($Config{extensions} !~ /\bList\/Util\b/) { 20 print "1..0 # Skip: List::Util was not built\n"; 21 exit 0; 22 } 23 } 24} 25 26use Scalar::Util qw(looks_like_number); 27 28my $i; 29sub ok { print +(($_[0] eq $_[1]) ? "": "not "), "ok ",++$i,"\n" } 30 31print "1..12\n"; 32 33ok(!!looks_like_number("1"), 1); 34ok(!!looks_like_number("-1"), 1); 35ok(!!looks_like_number("+1"), 1); 36ok(!!looks_like_number("1.0"), 1); 37ok(!!looks_like_number("+1.0"), 1); 38ok(!!looks_like_number("-1.0"), 1); 39ok(!!looks_like_number("-1.0e-12"), 1); 40ok(!!looks_like_number("Inf"), $] >= 5.006001); 41ok(!!looks_like_number("Infinity"), $] >= 5.008); 42ok(!!looks_like_number("NaN"), $] >= 5.008); 43ok(!!looks_like_number("foo"), ''); 44ok(!!looks_like_number(undef), 1); 45# That's enough - we trust the perl core tests like t/base/num.t 46 47__END__ 48