-{
- no warnings 'redefine';
- *is = sub ($$;$) {
- my ($a, $b, $desc) = @_;
- if (defined $testcase
- and (defined $b) ? (not defined $a or $a != $b) : defined $a) {
- diag <<DIAG;
-=== This testcase failed ===
-$testcase
-==== vvvvv Errors vvvvvv ===
-DIAG
- undef $testcase;
- }
- Test::Leaner::is($a, $b, $desc);
- }
-}
-