Changeset 302

Timestamp:

02/26/05 05:23:08 (4 years ago)

Author:

smpeters

svk:copy_cache_prev:

1041

Message:

* added diag method to Test.pm

Files:

• lib/Perl6/lib/Test.pm (modified) (1 diff)
• src/Posix.hs (modified) (2 diffs)
• t/op/not.t (modified) (1 diff)

lib/Perl6/lib/Test.pm

@@ -85 +85 @@
 }
 
+sub diag (Str $diag) {
+    say "# ", $diag;
+}
+
+
 END {
     if (!$plan) {

src/Posix.hs

@@ -23 +23 @@
     sleep,
     getEnvironment,
+    rmdir,
 ) where
 
@@ -54 +55 @@
 sleep _ = fail "'sleep' not implemented on this platform."
 
+rmdir :: FilePath -> IO ()
+rmdir _ = fail "'rmdir' not implemented on this platform."
+
 getEnvironment :: IO [(String, String)]
 getEnvironment = do

t/op/not.t

@@ -45 +45 @@
 ok $not1 == 0, "0 is false";
 ok $not0 == 1, "1 is true";
+
+diag "foo";