add nok() to Test.pm

Fixes #3

Author: coke

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 {