Add some more diagnostics on failure

Raku · Mar 4, 2016 · 70ed68a · 70ed68a
1 parent 27010e5
commit 70ed68a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/packages/Test/Idempotence.pm b/packages/Test/Idempotence.pm
@@ -27,7 +27,8 @@ sub is-perl-idempotent($thing, $desc?, %subst?, :$eqv = False) is export {
             }
         }
         if ($eqv) {
-            ok $thing eqv $stage2, "Result is same as original";
+            diag "$thing.perl() !eqv $stage2.perl()"
+              unless ok $thing eqv $stage2, "Result is same as original";
         }
         is $stage1r, $stage2p, "Same .perl output";
         is $fail, 1, "...and no failures.";