From: Peter Rabbitson <ribasushi@cpan.org>
Date: Wed, 10 Sep 2014 08:28:31 +0000 (+0200)
Subject: Better diagnostic in our lightweight is() replacement
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8c3de1b7e5e95955ff4a4226e92a0ab37b38b5c3;p=p5sagit%2FDevel-PeekPoke.git

Better diagnostic in our lightweight is() replacement
---

diff --git a/t/03torture.t b/t/03torture.t
index ba674ce..76e2fc3 100644
--- a/t/03torture.t
+++ b/t/03torture.t
@@ -15,6 +15,16 @@ sub is {
       $::TEST_COUNT,
       $_[2] || '',
     );
+    if ($str ne 'ok') {
+      printf STDERR ("# Failed test #%d at %s line %d
+# %s
+#   ne
+# %s
+"       , $::TEST_COUNT, (caller(0))[1,2],
+        , (map { unpack 'H*', $_ } @_[0,1])
+      );
+    }
+
   }
   threads->yield if $INC{'threads.pm'};
 }