Fix three subtests in reduce.t

Raku · Aug 22, 2015 · 78cff17 · 78cff17
1 parent df22323
commit 78cff17
Showing 1 changed file with 5 additions and 6 deletions.
diff --git a/S03-metaops/reduce.t b/S03-metaops/reduce.t
@@ -101,7 +101,7 @@ L<"http://groups.google.de/group/perl.perl6.language/msg/bd9eb275d5da2eda">
 {
     is ~([\+] [\+] 1 xx 5), '1 3 6 10 15', 'two nested [\+]';
     #?niecza todo 'unary [] does not context yet'
-    is ([+] [1, 2, 3, 4]), 4,  '[+] does not flatten []-arrays';
+    is ([+] 0, [1, 2, 3, 4]), 4,  '[+] does not flatten []-arrays';
 }
 
 #?niecza skip '[macro]'
@@ -329,14 +329,13 @@ is( ([min] Any, Any, 2), 2, '[min] Any, Any, 2 returns 2');
 
 # RT 57976 implement orelse
 #?niecza skip 'huh?  these are macros'
-#?rakudo todo 'orelse RT #124516'
 {
 
-    is (join ', ', [\//] Any,    0, 1),
-       (join ', ',      'Any()', 0, 0),
+    is (join ', ', [\//] Any, 0, 1),
+       (join ', ',       Any, 0, 0),
        '[\orelse]';
-    is (join ', ', [\orelse] Any,    0, 1),
-       (join ', ',          'Any()', 0, 0),
+    is (join ', ', [\orelse] Any, 0, 1),
+       (join ', ',           Any, 0, 0),
        '[\orelse]';
 
 }