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