Changeset 204

Timestamp:

02/23/05 17:05:42 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

1041

Message:

* actually return something.

Files:

• lib/Perl6/lib/Test.pm (modified) (4 diffs)

lib/Perl6/lib/Test.pm

@@ -14 +14 @@
         $failed++;
     }
+    return $cond;
 }
 
@@ -27 +28 @@
         $failed++;
     }
+    return ($ok eq "ok ");
 }
 
@@ -37 +39 @@
         say("#     Failed (TODO) test (", $?CALLER::POSITION, ")");
     }
+    return $cond;
 }
 
@@ -49 +52 @@
         say("#     expected: '", $expected, "'");
     }
+    return ($ok eq "ok ");
 }