1N/A#!/usr/bin/perl -w
1N/A# -*- perl -*-
1N/A
1N/A
1N/A#
1N/A# $Id: $
1N/A# Author: Slaven Rezic
1N/A#
1N/A
1N/Ause strict;
1N/Ause vars qw(%Config);
1N/A
1N/ABEGIN {
1N/A unless (-d 'blib') {
1N/A chdir 't' if -d 't';
1N/A @INC = '../lib';
1N/A require Config; import Config;
1N/A keys %Config; # Silence warning
1N/A if ($Config{extensions} !~ /\bList\/Util\b/) {
1N/A print "1..0 # Skip: List::Util was not built\n";
1N/A exit 0;
1N/A }
1N/A }
1N/A}
1N/A
1N/Ause Scalar::Util qw(looks_like_number);
1N/A
1N/Amy $i;
1N/Asub ok { print +(($_[0] eq $_[1]) ? "": "not "), "ok ",++$i,"\n" }
1N/A
1N/Aprint "1..12\n";
1N/A
1N/Aok(!!looks_like_number("1"), 1);
1N/Aok(!!looks_like_number("-1"), 1);
1N/Aok(!!looks_like_number("+1"), 1);
1N/Aok(!!looks_like_number("1.0"), 1);
1N/Aok(!!looks_like_number("+1.0"), 1);
1N/Aok(!!looks_like_number("-1.0"), 1);
1N/Aok(!!looks_like_number("-1.0e-12"), 1);
1N/Aok(!!looks_like_number("Inf"), $] >= 5.006001);
1N/Aok(!!looks_like_number("Infinity"), $] >= 5.008);
1N/Aok(!!looks_like_number("NaN"), $] >= 5.008);
1N/Aok(!!looks_like_number("foo"), '');
1N/Aok(!!looks_like_number(undef), 1);
1N/A# That's enough - we trust the perl core tests like t/base/num.t
1N/A
1N/A__END__