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