|
Packit |
237ae7 |
use Test::More qw(no_plan);
|
|
Packit |
237ae7 |
use Test::Differences;
|
|
Packit |
237ae7 |
|
|
Packit |
237ae7 |
TODO: {
|
|
Packit |
237ae7 |
local $TODO = "Should fail";
|
|
Packit |
237ae7 |
eq_or_diff( undef, "", "undef eq ''" );
|
|
Packit |
237ae7 |
eq_or_diff( undef, [], "undef eq []" );
|
|
Packit |
237ae7 |
eq_or_diff( undef, 0, "undef eq 0" );
|
|
Packit |
237ae7 |
eq_or_diff( "", 0, "'' eq 0" );
|
|
Packit |
237ae7 |
eq_or_diff( [ 1, undef ], [ 1, "" ], "undef eq '' in array" );
|
|
Packit |
237ae7 |
eq_or_diff( [ 1, [ 2, undef ] ], [ 1, [ 2, "" ] ], "undef eq '' in deep array" );
|
|
Packit |
237ae7 |
eq_or_diff( [ [1], [ 2, undef ] ], [ [1], [ 2, "" ] ], "undef eq '' in AoAoS" );
|
|
Packit |
237ae7 |
eq_or_diff( [ [1], [ 2, undef ] ], [ [1], [ 2, "<undef>" ] ], "undef eq <undef> in AoAoS" );
|
|
Packit |
237ae7 |
eq_or_diff( [ 1, undef ], [ 1, ], "arrays of different length are equal" );
|
|
Packit |
237ae7 |
eq_or_diff( { aa => undef }, { aa => '' }, "undef eq '' in hash" );
|
|
Packit |
237ae7 |
eq_or_diff( { aa => undef }, { aa => '<undef>' }, "undef eq <undef> in hash" );
|
|
Packit |
237ae7 |
}
|
|
Packit |
237ae7 |
|
|
Packit |
237ae7 |
my $builder = Test::More->builder;
|
|
Packit |
237ae7 |
# The Test::Builder 1.5 way to do it
|
|
Packit |
237ae7 |
if ( $builder->can('history') ) {
|
|
Packit |
237ae7 |
is $builder->history->pass_count - $builder->history->todo_count,
|
|
Packit |
237ae7 |
$builder->history->literal_pass_count,
|
|
Packit |
237ae7 |
"All TODO tests failed";
|
|
Packit |
237ae7 |
}
|
|
Packit |
237ae7 |
# The Test::Builder 0.x way to do it
|
|
Packit |
237ae7 |
else {
|
|
Packit |
237ae7 |
eq_or_diff [ map { $_->{actual_ok} } $builder->details ], [ map { 0 } $builder->details ],
|
|
Packit |
237ae7 |
"All TODO tests failed";
|
|
Packit |
237ae7 |
}
|