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
|
use Test2::Bundle::Extended -target => 'Test2::Compare::Undef';
my $undef = $CLASS->new();
my $isdef = $CLASS->new(negate => 1);
isa_ok($undef, $CLASS, 'Test2::Compare::Base');
isa_ok($isdef, $CLASS, 'Test2::Compare::Base');
subtest name => sub {
is($undef->name, '<UNDEF>', "got expected name for undef");
is($isdef->name, '<UNDEF>', "got expected name for negated undef");
};
subtest operator => sub {
is($undef->operator(), 'IS', "Operator is 'IS'");
is($undef->operator('a'), 'IS', "Operator is 'IS'");
is($isdef->operator(), 'IS NOT', "Operator is 'IS NOT'");
is($isdef->operator('a'), 'IS NOT', "Operator is 'IS NOT'");
};
subtest verify => sub {
ok(!$undef->verify(exists => 0, got => undef), 'does not verify against DNE');
ok(!$undef->verify(exists => 1, got => {}), 'ref will not verify');
ok(!$undef->verify(exists => 1, got => 'x'), 'not looking for a string');
ok(!$undef->verify(exists => 1, got => 1), 'not looking for a number');
ok(!$undef->verify(exists => 1, got => 0), 'not looking for a 0');
ok($undef->verify(exists => 1, got => undef), 'got undef');
ok(!$isdef->verify(exists => 0, got => undef), 'does not verify against DNE');
ok(!$isdef->verify(exists => 1, got => undef), 'got undef');
ok($isdef->verify(exists => 1, got => {}), 'ref is defined');
ok($isdef->verify(exists => 1, got => 'x'), 'string is defined');
ok($isdef->verify(exists => 1, got => 1), 'number is defined');
ok($isdef->verify(exists => 1, got => 0), '0 is defined');
};
done_testing;
|
