+sub verbose_is ($$;$) {
+ my ($a, $b, $desc) = @_;
+
+ if (defined $::testcase
+ and (defined $b) ? (not defined $a or $a ne $b) : defined $a) {
+ Test::Leaner::diag(<<DIAG);
+=== This testcase failed ===
+$::testcase
+==== vvvvv Errors vvvvvv ===
+DIAG
+ undef $::testcase;
+ }
+
+ Test::Leaner::is($a, $b, $desc);
+}
+