This is an automatically generated mail to inform you that tests are now
available in t/spec/S03-operators/not.t
commit c10b7c5a53c3857fdb648052a80478d16ddf52aa
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Sun Oct 11 23:19:00 2009 +0000
[t/spec] Test for RT #65556
git-svn-id: http://svn.pugscode.org/p...@28766
c213334d-75ef-0310-aa23-eaa082d1ae64
diff --git a/t/spec/S03-operators/not.t b/t/spec/S03-operators/not.t
index 35856d8..7784e84 100644
--- a/t/spec/S03-operators/not.t
+++ b/t/spec/S03-operators/not.t
@@ -1,6 +1,6 @@
use v6;
use Test;
-plan 13;
+plan *;
sub not_ok($cond,$desc) {
if $cond {
@@ -21,12 +21,17 @@ not_ok(not "x", 'not "x" is false');
my $a = 1; not_ok(not $a, 'not $not_var is false');
my $b = 0; not_ok(!(not $b), 'not $false_var is not false');
+#?rakudo todo 'RT 65556'
+is (not($b) + 1), ((not $b) + 1), 'not($b) is (not $b)';
+
ok( not(not 42), "not(not 42) is true");
-ok(!not(not 0), "not(not 0) is true");
+ok(!not(not 0), "not(not 0) is false");
is(not Bool::True, Bool::False, "'Bool::True' is not 'Bool::False'");
is(not Bool::True, False, "'Bool::True' is not 'False'");
is(not True, False, "'True' is not 'False'");
is(not True, Bool::False, "'True' is not 'Bool::False'");
+done_testing;
+
# vim: ft=perl6