fix logic error in unary nok() function in Test.pm

rakudo · Apr 14, 2009 · 48c2042 · 48c2042
1 parent 13c2c7c
commit 48c2042
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Test.pm b/Test.pm
@@ -55,7 +55,7 @@ multi sub nok(Object $cond, $desc) is export(:DEFAULT) {
     proclaim(!$cond, $desc);
 }
 
-multi sub nok(Object $cond) is export(:DEFAULT) { nok(!$cond, ''); }
+multi sub nok(Object $cond) is export(:DEFAULT) { nok($cond, ''); }
 
 
 multi sub is(Object $got, Object $expected, $desc) is export(:DEFAULT) {