Permalink
Browse files

some rakudo unfudges, mostly related to infix orelse

  • Loading branch information...
1 parent b3ef08d commit 051af06bdb380697883bffffb0a0228ecb43ec58 @moritz moritz committed Feb 12, 2011
Showing with 0 additions and 6 deletions.
  1. +0 −3 S03-metaops/reduce.t
  2. +0 −2 S03-operators/short-circuit.t
  3. +0 −1 S04-statements/do.t
View
@@ -103,7 +103,6 @@ L<"http://groups.google.de/group/perl.perl6.language/msg/bd9eb275d5da2eda">
{
my @array = (Mu, Mu, 3, Mu, 5);
is ([//] @array), 3, "[//] works";
- #?rakudo skip '[orelse]'
is ([orelse] @array), 3, "[orelse] works";
}
@@ -311,11 +310,9 @@ is( ([\R~] 'a'..*).[^8].join(', '), 'a, ba, cba, dcba, edcba, fedcba, gfedcba, h
# RT 57976 implement orelse
{
- #?rakudo skip '[orelse]'
is (join ', ', [\//] Any, 0, 1),
(join ', ', 'Any()', 0, 0),
'[\orelse]';
- #?rakudo skip '[orelse]'
is (join ', ', [\orelse] Any, 0, 1),
(join ', ', 'Any()', 0, 0),
'[\orelse]';
@@ -106,7 +106,6 @@ sub accumtest($expect, $op) {
is($y, 42, "// operator working");
}
-#?rakudo skip 'orelse NYI'
{
my $x; # should be Mu
my $y = 2;
@@ -155,7 +154,6 @@ sub accumtest($expect, $op) {
is((0 or 42), 42, "or operator working");
is((Mu // 42), 42, "// operator working"); #"
- #?rakudo skip 'orelse NYI'
is((Mu orelse 42), 42, "orelse operator working");
is(0 ^^ 42, 42, "^^ operator working (one true)");
View
@@ -41,7 +41,6 @@ eval_lives_ok 'my $i = 1; do { $i++ } if $i;',
any branch, the return value is undefined in item context and ()
in list context.
=end comment
-#?rakudo skip 'if returning Nil'
{
my $x = do if 0 { 1 } elsif 0 { 2 };
ok !$x.defined, 'when if does not execute any branch, return undefined';

0 comments on commit 051af06

Please sign in to comment.