some rakudo unfudges, mostly related to infix orelse

S03-metaops/reduce.t

@@ -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]';

S03-operators/short-circuit.t

@@ -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)");

S04-statements/do.t

@@ -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';