Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Fudge S05-modifier/pos.t for niecza
  • Loading branch information
sorear committed Aug 21, 2011
1 parent b91f3c5 commit 813188e
Showing 1 changed file with 4 additions and 0 deletions.
4 changes: 4 additions & 0 deletions S05-modifier/pos.t
Expand Up @@ -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');
Expand All @@ -45,6 +47,7 @@ for ("abcdef") {
}

#?rakudo skip 'm:g'
#?niecza skip ':i'
{
my $str = "abcabcabc";
my @x = $str ~~ m:i:g:p/abc/;
Expand All @@ -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/);
Expand Down

0 comments on commit 813188e

Please sign in to comment.