1use strict;
2use warnings;
3
4use Test2::API qw/intercept/;
5use Test::More;
6
7my @values = (
8    "",               # false but defined -> inconsistent
9    0,                # false but defined -> inconsistent
10    0.0,              # false but defined -> inconsistent
11    "0.0",            # true -> TODO
12    "this is why",    # as expected
13);
14
15for my $value (@values) {
16    local $TODO = $value;
17    my $x = defined($value) ? "\"$value\"" : 'UNDEF';
18    fail "Testing: $x";
19}
20
21done_testing;
22