[svn:parrot] r35753 - trunk/languages/perl6

Author: jonathan
Date: Mon Jan 19 06:29:37 2009
New Revision: 35753

Modified:
   trunk/languages/perl6/Test.pm

Log:
[rakudo] Make proclaim accept a junction rather than thread over it, but give a warning; moritz++ for input on how to handle this.

Modified: trunk/languages/perl6/Test.pm
==============================================================================
--- trunk/languages/perl6/Test.pm	(original)
+++ trunk/languages/perl6/Test.pm	Mon Jan 19 06:29:37 2009
@@ -195,10 +195,14 @@
     $eval_exception // $!;
 }
 
-sub proclaim($cond, $desc) {
+sub proclaim(Object $cond, $desc) {
     $testing_started  = 1;
     $num_of_tests_run = $num_of_tests_run + 1;
 
+    if $cond.HOW().isa($cond, Junction) {
+        warn("Junction passed to proclaim");
+    }
+
     unless $cond {
         print "not ";
         $num_of_tests_failed = $num_of_tests_failed + 1