Fix test not to use .munch and unfudge it for Niecza.

colomon · colomon · commit d1bba41f2e1a · 2012-06-01T11:40:34.000-04:00
diff --git a/S04-statements/gather.t b/S04-statements/gather.t
@@ -141,7 +141,6 @@ plan 21;
         'take with multiple arguments .flat tens out';
 }
 
-#?niecza skip 'series'
 #?rakudo skip 'nom regression (loops)'
 {
     my sub grep-div(@a, $n) {
@@ -151,7 +150,7 @@ plan 21;
     }
     
     my @evens := grep-div((1...*), 2);
-    is ~grep-div(@evens, 3).munch(16), ~grep-div((1...100), 6), "Nested identical gathers";
+    is ~grep-div(@evens, 3)[^16], ~grep-div((1...100), 6), "Nested identical gathers";
 }
 
 # RT #77036

Original file line number	Diff line number	Diff line change
`@@ -141,7 +141,6 @@ plan 21;`
`141`	`141`	`'take with multiple arguments .flat tens out';`
`142`	`142`	`}`
`143`	`143`
`144`		`-#?niecza skip 'series'`
`145`	`144`	`#?rakudo skip 'nom regression (loops)'`
`146`	`145`	`{`
`147`	`146`	`my sub grep-div(@a, $n) {`
`@@ -151,7 +150,7 @@ plan 21;`
`151`	`150`	`}`
`152`	`151`
`153`	`152`	`my @evens := grep-div((1...*), 2);`
`154`		`- is ~grep-div(@evens, 3).munch(16), ~grep-div((1...100), 6), "Nested identical gathers";`
	`153`	`+ is ~grep-div(@evens, 3)[^16], ~grep-div((1...100), 6), "Nested identical gathers";`
`155`	`154`	`}`
`156`	`155`
`157`	`156`	`# RT #77036`