diag() received output when Callable test fails

Otherwise we can't see why exactly it failed
rakudo · Oct 8, 2017 · 2f0bb20 · 2f0bb20
1 parent 71a0ad5
commit 2f0bb20
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/t/packages/Test/Helpers.pm6 b/t/packages/Test/Helpers.pm6
@@ -40,7 +40,7 @@ sub is-run-repl ($code is copy, $desc, :$out = '', :$err = '') is export {
             my $test-name = 'stdout is correct';
             when Str        { is      $output, $_, $test-name; }
             when Regex      { like    $output, $_, $test-name; }
-            when Callable   { ok   $_($output),    $test-name; }
+            when Callable   { ok   $_($output),    $test-name or diag $output; }
             when Positional { is      $output, .join("\n")~"\n", $test-name; }
 
             die "Don't know how to handle :out of type $_.^name()";
@@ -51,7 +51,7 @@ sub is-run-repl ($code is copy, $desc, :$out = '', :$err = '') is export {
             my $test-name = 'stderr is correct';
             when Str        { is      $output, $_, $test-name; }
             when Regex      { like    $output, $_, $test-name; }
-            when Callable   { ok   $_($output),    $test-name; }
+            when Callable   { ok   $_($output),    $test-name or diag $output; }
             when Positional { is      $output, .join("\n")~"\n", $test-name; }
 
             die "Don't know how to handle :err of type $_.^name()";