Print TODO diags to todo_output

rakudo · Jul 28, 2014 · bc4e880 · bc4e880
1 parent 2f974de
commit bc4e880
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/lib/Test.pm b/lib/Test.pm
@@ -176,11 +176,13 @@ sub subtest(&subtests, $desc = '') is export {
 }
 
 sub diag(Mu $message) is export {
+    my $is_todo = $num_of_tests_run <= $todo_upto_test_num;
+    my $out     = $is_todo ?? $todo_output !! $failure_output;
+
     $time_after = nqp::p6box_n(nqp::time_n);
-    $failure_output.print: $indents;
     my $str-message = $message.Str.subst(rx/^^/, '# ', :g);
     $str-message .= subst(rx/^^'#' \s+ $$/, '', :g);
-    $*ERR.say: $str-message;
+    $out.say: $indents ~ $str-message;
     $time_before = nqp::p6box_n(nqp::time_n);
 }