Fudge S05-modifier/pos.t for niecza

sorear · sorear · commit 813188eafa90 · 2011-08-21T02:27:10.000-07:00
diff --git a/S05-modifier/pos.t b/S05-modifier/pos.t
@@ -24,10 +24,12 @@ for ("abcdef") {
 #?rakudo skip "s:pos/// NYI"
 {
     $_ = "foofoofoo foofoofoo";
+    $/ := Any;
     ok(s:global:pos/foo/FOO/, 'Globally contiguous substitution');
     is($_, "FOOFOOFOO foofoofoo", 'Correctly substituted contiguously');
 }
 
+#?niecza skip ':i'
 {
     my $str = "abcabcabc";
     ok($str ~~ m:p/abc/, 'Continued match');
@@ -45,6 +47,7 @@ for ("abcdef") {
 }
 
 #?rakudo skip 'm:g'
+#?niecza skip ':i'
 {
     my $str = "abcabcabc";
     my @x = $str ~~ m:i:g:p/abc/;
@@ -55,6 +58,7 @@ for ("abcdef") {
 }
 
 #?rakudo skip "m:p:i:g// NYI"
+#?niecza skip ':i'
 {
     my $str = "abcabcabc";
     my @x = ?($str ~~ m:p:i:g/abc/);

Original file line number	Diff line number	Diff line change
`@@ -24,10 +24,12 @@ for ("abcdef") {`
`24`	`24`	`#?rakudo skip "s:pos/// NYI"`
`25`	`25`	`{`
`26`	`26`	`$_ = "foofoofoo foofoofoo";`
	`27`	`+ $/ := Any;`
`27`	`28`	`ok(s:global:pos/foo/FOO/, 'Globally contiguous substitution');`
`28`	`29`	`is($_, "FOOFOOFOO foofoofoo", 'Correctly substituted contiguously');`
`29`	`30`	`}`
`30`	`31`
	`32`	`+#?niecza skip ':i'`
`31`	`33`	`{`
`32`	`34`	`my $str = "abcabcabc";`
`33`	`35`	`ok($str ~~ m:p/abc/, 'Continued match');`
`@@ -45,6 +47,7 @@ for ("abcdef") {`
`45`	`47`	`}`
`46`	`48`
`47`	`49`	`#?rakudo skip 'm:g'`
	`50`	`+#?niecza skip ':i'`
`48`	`51`	`{`
`49`	`52`	`my $str = "abcabcabc";`
`50`	`53`	`my @x = $str ~~ m:i:g:p/abc/;`
`@@ -55,6 +58,7 @@ for ("abcdef") {`
`55`	`58`	`}`
`56`	`59`
`57`	`60`	`#?rakudo skip "m:p:i:g// NYI"`
	`61`	`+#?niecza skip ':i'`
`58`	`62`	`{`
`59`	`63`	`my $str = "abcabcabc";`
`60`	`64`	`my @x = ?($str ~~ m:p:i:g/abc/);`