add nok() to Test.pm

Fixes #3
perl6 · Feb 25, 2012 · 52a3ace · 52a3ace
1 parent f3ef7f0
commit 52a3ace
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/Pugs/ext/Test/lib/Test.pm b/Pugs/ext/Test/lib/Test.pm
@@ -77,6 +77,12 @@ sub ok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is export {
     Test::proclaim($cond, $desc, $todo, :$depends);
 }
 
+## nok
+
+sub nok (Bool $cond, Str $desc?, :$todo, :$depends) returns Bool is export {
+    Test::proclaim(!$cond, $desc, $todo, :$depends);
+}
+
 ## is
 
 sub is (Str $got, Str $expected, Str $desc?, :$todo, :$depends) returns Bool is export {