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

#!/usr/bin/perl -w

BEGIN {
    unless (-d 'blib') {
	chdir 't' if -d 't';
	@INC = '../lib';
	require Config; import Config;
	keys %Config; # Silence warning
	if ($Config{extensions} !~ /\bList\/Util\b/) {
	    print "1..0 # Skip: List::Util was not built\n";
	    exit 0;
	}
    }
}

use strict;
use Test::More tests => 12;
use Scalar::Util qw(looks_like_number);

foreach my $num (qw(1 -1 +1 1.0 +1.0 -1.0 -1.0e-12)) {
  ok(looks_like_number($num), "'$num'");
}

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');

# We should copy some of perl core tests like t/base/num.t here
Commit	Line	Data
9e7deb6c	1	#!/usr/bin/perl -w
9e7deb6c	2
	3	BEGIN {
	4	unless (-d 'blib') {
	5	chdir 't' if -d 't';
	6	@INC = '../lib';
	7	require Config; import Config;
	8	keys %Config; # Silence warning
	9	if ($Config{extensions} !~ /\bList\/Util\b/) {
	10	print "1..0 # Skip: List::Util was not built\n";
	11	exit 0;
	12	}
	13	}
	14	}
	15
cf083cf9	16	use strict;
cf083cf9	17	use Test::More tests => 12;
9e7deb6c	18	use Scalar::Util qw(looks_like_number);
9e7deb6c	19
cf083cf9	20	foreach my $num (qw(1 -1 +1 1.0 +1.0 -1.0 -1.0e-12)) {
	21	ok(looks_like_number($num), "'$num'");
	22	}
9e7deb6c	23
cf083cf9	24	is(!!looks_like_number("Inf"), $] >= 5.006001, 'Inf');
	25	is(!!looks_like_number("Infinity"), $] >= 5.008, 'Infinity');
	26	is(!!looks_like_number("NaN"), $] >= 5.008, 'NaN');
	27	is(!!looks_like_number("foo"), '', 'foo');
	28	is(!!looks_like_number(undef), $] < 5.009002, 'undef');
9e7deb6c	29
cf083cf9	30	# We should copy some of perl core tests like t/base/num.t here