Permalink
Browse files

[S03]: Unfudge [^^] tests for rakudo.

  • Loading branch information...
1 parent 4ec2969 commit 65b73e94c912fb22344d9d40e2812fe068597cef @pmichaud pmichaud committed Jun 25, 2012
Showing with 4 additions and 2 deletions.
  1. +4 −2 S03-metaops/reduce.t
View
@@ -226,15 +226,13 @@ is( ([min] Any, Any, 2), 2, '[min] Any, Any, 2 returns 2');
# RT #65164 implement [^^]
#?niecza skip '^^'
-#?rakudo skip '[^^]'
{
is ([^^] 0, 42), 42, '[^^] works (one of two true)';
is ([^^] 42, 0), 42, '[^^] works (one of two true)';
ok ! ([^^] 1, 42), '[^^] works (two true)';
ok ! ([^^] 0, 0), '[^^] works (two false)';
ok ! ([^^] 0, 0, 0), '[^^] works (three false)';
- #?rakudo 2 todo '[^^]'
ok ! ([^^] 5, 9, 17), '[^^] works (three true)';
is ([^^] 5, 9, 0), (5 ^^ 9 ^^ 0), '[^^] mix 1';
@@ -318,7 +316,11 @@ is( ([min] Any, Any, 2), 2, '[min] Any, Any, 2 returns 2');
ok ( $def ^^ '' ) eq $def, "|{$def.perl}| $msg2 \#8";
ok ( '' ^^ $def ) eq $def, "|{$def.perl}| $msg2 \#9";
}
+}
+#?rakudo skip 'triangle [\^^] and [\xor]'
+#?niecza skip '^^'
+{
is (join ', ', [\^^] False, 0, 5, '', False, 16, 0, Any, "hello", False),
(join ', ', False, 0, 5, 5, 5, False, False, False, False, False),
'[\^^]';

0 comments on commit 65b73e9

Please sign in to comment.