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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
use Test2::Bundle::Extended -target => 'Test2::Compare::Number';
my $num = $CLASS->new(input => '22.0');
my $untrue = $CLASS->new(input => 0);
isa_ok($num, $CLASS, 'Test2::Compare::Base');
isa_ok($untrue, $CLASS, 'Test2::Compare::Base');
subtest name => sub {
is($num->name, '22.0', "got expected name for number");
is($untrue->name, '0', "got expected name for 0");
};
subtest operator => sub {
is($num->operator(), '', "no operator for number + nothing");
is($num->operator(undef), '', "no operator for number + undef");
is($num->operator(1), '==', "== operator for number + number");
is($untrue->operator(), '', "no operator for 0 + nothing");
is($untrue->operator(undef), '', "no operator for 0 + undef");
is($untrue->operator(1), '==', "== operator for 0 + number");
};
subtest verify => sub {
ok(!$num->verify(exists => 0, got => undef), 'does not verify against DNE');
ok(!$num->verify(exists => 1, got => {}), 'ref will not verify');
ok(!$num->verify(exists => 1, got => undef), 'looking for a number, not undef');
ok(!$num->verify(exists => 1, got => 'x'), 'not looking for a string');
ok(!$num->verify(exists => 1, got => 1), 'wrong number');
ok($num->verify(exists => 1, got => 22), '22.0 == 22');
ok($num->verify(exists => 1, got => '22.0'), 'exact match with decimal');
ok(!$untrue->verify(exists => 0, got => undef), 'does not verify against DNE');
ok(!$untrue->verify(exists => 1, got => {}), 'ref will not verify');
ok(!$untrue->verify(exists => 1, got => undef), 'undef is not 0 for this test');
ok(!$untrue->verify(exists => 1, got => 'x'), 'x is not 0');
ok(!$untrue->verify(exists => 1, got => 1), '1 is not 0');
ok(!$untrue->verify(exists => 1, got => ''), '"" is not 0');
ok(!$untrue->verify(exists => 1, got => ' '), '" " is not 0');
ok($untrue->verify(exists => 1, got => 0), 'got 0');
ok($untrue->verify(exists => 1, got => '0.0'), '0.0 == 0');
ok($untrue->verify(exists => 1, got => '-0.0'), '-0.0 == 0');
};
subtest rounding => sub {
my $round = $CLASS->new(input => '60.48');
ok($round->verify(exists => 1, got => 60.48), '60.48 == 60.48');
{
my $todo = todo "floating point comparison representation error";
ok($round->verify(exists => 1, got => 125 - 64.52), '60.48 == 125 - 64.52');
}
};
like(
dies { $CLASS->new() },
qr/input must be defined for 'Number' check/,
"Cannot use undef as a number"
);
like(
dies { $CLASS->new(input => '') },
qr/input must be a number for 'Number' check/,
"Cannot use empty string as a number"
);
like(
dies { $CLASS->new(input => ' ') },
qr/input must be a number for 'Number' check/,
"Cannot use whitespace string as a number"
);
done_testing;
|
