[perl #44249] Patch for test output

[via RT]

# New Ticket Created by  Colin Kuskie 
# Please include the string:  [perl #44249]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=44249 >


Code around the sticky variable inside of a condition bug, and
add the diag subroutine.

Colin


Index: languages/perl6/Test.pm
===================================================================
--- languages/perl6/Test.pm	(revision 20326)
+++ languages/perl6/Test.pm	(working copy)
@@ -45,7 +45,9 @@
 
 multi sub isnt($got, $expected) { isnt($got, $expected, ''); }
 
+sub diag($message) { say '# '~$message; }
 
+
 ## 'private' subs
 
 sub proclaim($cond, $desc) {
@@ -53,8 +55,10 @@
     $num_of_tests_run = $num_of_tests_run + 1;
 
     if ( $cond ) {
-        say "ok ", $num_of_tests_run, " - ", $desc;
+        print "ok " ~ $num_of_tests_run ~ " - ";
     } else {
-        say "not ok ", $num_of_tests_run, " - ", $desc;
+        print "not ok " ~ $num_of_tests_run ~ " - ";
     }
+    say $desc;
+
 }