[Test.pm] give better diagnostic output in isa_ok()

rakudo · Mar 28, 2010 · 0577068 · 0577068
1 parent cddc8a7
commit 0577068
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/Test.pm b/Test.pm
@@ -132,7 +132,10 @@ multi sub isa_ok(Mu $var,$type) is export {
     ok($var.isa($type), "The object is-a '$type'")
         or diag('Actual type: ' ~ $var.WHAT);
 }
-multi sub isa_ok(Mu $var,$type, $msg) is export { ok($var.isa($type), $msg); }
+multi sub isa_ok(Mu $var,$type, $msg) is export {
+    ok($var.isa($type), $msg)
+        or diag('Actual type: ' ~ $var.WHAT);
+}
 
 multi sub dies_ok($closure, $reason) is export {
     try {