Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[t/spec] unfudge [//] and [||] tests for rakudo

git-svn-id: http://svn.pugscode.org/pugs@27723 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit 4acefb9efcaad8c7d442fbf7e88417146392f3bd 1 parent 44e9ab8
moritz authored
Showing with 4 additions and 2 deletions.
  1. +4 −2 S03-operators/reduce-metaop.t
View
6 S03-operators/reduce-metaop.t
@@ -91,21 +91,22 @@ L<"http://groups.google.de/group/perl.perl6.language/msg/bd9eb275d5da2eda">
is (~ [\**] 3, 2, 0), "0 1 3", "[\\**] (right assoc) works (2)";
}
-#?rakudo skip '[//], [orelse]'
{
my @array = (undef, undef, 3, undef, 5);
is ([//] @array), 3, "[//] works";
+ #?rakudo skip '[orelse]'
is ([orelse] @array), 3, "[orelse] works";
}
-#?rakudo skip '[||]'
{
my @array = (undef, undef, 0, 3, undef, 5);
is ([||] @array), 3, "[||] works";
+ #?rakudo skip '[or]'
is ([or] @array), 3, "[or] works";
# undefs as well as [//] should work too, but testing it like
# this would presumably emit warnings when we have them.
+ #?rakudo skip '[\||]'
is (~ [\||] 0, 0, 3, 4, 5), "0 0 3 3 3", "[\\||] works";
}
@@ -178,3 +179,4 @@ lives_ok({my @foo = [>>+<<] ([1..3],[1..3],[1..3])},'Parse [>>+<<]');
is( ([*]()), 1, "[*]() returns 1");
is( ([+]()), 0, "[+]() returns 0");
+# vim: ft=perl6
Please sign in to comment.
Something went wrong with that request. Please try again.