1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
#!perl
use warnings;
use strict;
use Test::More tests => 21;
use Carp::Assert::More;
use Test::Exception;
my @good = (
1,
2112,
'2112',
3.1415926,
-5150,
'-0.12',
'0.12',
2.112E+03,
2.112E3,
2.112e3,
2.112e0,
2.112e-1,
);
my @bad = (
undef,
'zero',
'',
[],
{},
\99,
\*STDIN,
'3-5',
3.5.4
);
for my $good ( @good ) {
lives_ok(
sub { assert_numeric( $good, "$good is good" ) },
"$good passes assertion"
);
}
for my $bad ( @bad ) {
my $disp = $bad;
$disp = '<undef>' unless defined $disp;
throws_ok(
sub { assert_numeric( $bad, "$disp is bad" ) },
qr/\Q$disp is bad/,
"$disp fails assertion"
);
}
exit 0;
|
