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

Reply via email to