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
|
use strict;
use warnings;
use Test2::API qw/intercept/;
use Test::More;
my @values = (
0, # false but defined -> inconsistent
0.0, # false but defined -> inconsistent
"0.0", # true -> TODO
"this is why", # as expected
);
for my $value (@values) {
local $TODO = $value;
my $x = defined($value) ? "\"$value\"" : 'UNDEF';
fail "Testing: $x";
}
my $e = intercept {
local $TODO = "";
fail "Testing: '\"\"'";
};
ok(!$e->[0]->effective_pass, "Test was not TODO when set to \"\"");
like($e->[1]->message, qr/Failed test '/, "Did not add TODO to the diagnostics");
done_testing;
|
