report expected and actual results after "is" test failure

Signed-off-by: Moritz Lenz <moritz@faui2k3.org>
rakudo · Jul 25, 2009 · 240b984 · 240b984
1 parent dd5767c
commit 240b984
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/Test.pm b/Test.pm
@@ -63,6 +63,14 @@ multi sub nok(Object $cond) is export(:DEFAULT) { nok($cond, ''); }
 multi sub is(Object $got, Object $expected, $desc) is export(:DEFAULT) {
     my $test = $got eq $expected;
     proclaim(?$test, $desc);
+    if !$test {
+        my $got_perl      = try { $got.perl };
+        my $expected_perl = try { $expected.perl };
+        if $got_perl.defined && $expected_perl.defined {
+            diag "     got: $got_perl";
+            diag "expected: $expected_perl";
+        }
+    }
 }
 
 multi sub is(Object $got, Object $expected) is export(:DEFAULT) { is($got, $expected, ''); }