Author: pmichaud Date: Wed May 3 21:32:00 2006 New Revision: 12494 Modified: trunk/languages/perl6/t/00-parrot/03-op-logic.t trunk/languages/perl6/t/00-parrot/04-op-cmp.t
Log: [perl6]: Updated/corrected tests in t/00-parrot/ (particle++) Modified: trunk/languages/perl6/t/00-parrot/03-op-logic.t ============================================================================== --- trunk/languages/perl6/t/00-parrot/03-op-logic.t (original) +++ trunk/languages/perl6/t/00-parrot/03-op-logic.t Wed May 3 21:32:00 2006 @@ -22,8 +22,8 @@ (1 ^^ 1) or say 'ok 12'; ## interesting -1 and 0 xor 1 or 0 and say 'ok 13'; -1 and 0 xor 0 || 1 and say 'ok 14'; +(1 and 0 xor 1 or 0) and say 'ok 13'; +(1 and 0 xor 0 || 1) and say 'ok 14'; ## more interesting (5 and 0 xor 0 || 3) eq 3 and say 'ok 15'; Modified: trunk/languages/perl6/t/00-parrot/04-op-cmp.t ============================================================================== --- trunk/languages/perl6/t/00-parrot/04-op-cmp.t (original) +++ trunk/languages/perl6/t/00-parrot/04-op-cmp.t Wed May 3 21:32:00 2006 @@ -27,7 +27,7 @@ 'a' eq 'b' or say 'ok 18'; 'a' lt 'b' lt 'c' and say 'ok 19'; 'a' lt 'b' lt 'b' or say 'ok 20'; -4 gt 'c' gt 'a' and say 'ok 21'; -4 gt 'c' gt 'c' or say 'ok 22'; +'d' gt 'c' gt 'a' and say 'ok 21'; +'d' gt 'c' gt 'c' or say 'ok 22'; 'a' ne 'b' and say 'ok 23'; 'a' ne 'a' or say 'ok 24';
