use strict;
use warnings;
use Test::Builder::Tester tests => 32;
use Test::More;
# Test using the module.
use_ok 'Test::Numeric';
ok( Test::Numeric::_test_number($_), "'$_' is a number" ) for qw(
0
1
.1
-1
+34
1.23
1.2e3
1.2e+3
1.2e-3
1.3e123
1.2E3
1.2E+3
1.2E-3
1.3E123
-.2
);
ok( !Test::Numeric::_test_number($_), "'$_' is not a number" ) for qw(
1.-2
test
--12
1e2e3
-23-
+-2
1.2.3
.
.e2
.E2
12eE3
), '';
test_out('ok 1 - foo');
is_number( 1.2e3, 'foo' );
test_test("is_number");
test_out('not ok 1 - foo');
test_fail(+1);
is_number( 'test', 'foo' );
test_test("is_number");
test_out('ok 1 - foo');
isnt_number( 'test', 'foo' );
test_test("isnt_number");
test_out('not ok 1 - foo');
test_fail(+1);
isnt_number( 2, 'foo' );
test_test("isnt_number");