Skip to content

Commit

Permalink
[t/spec] correct continue.t
Browse files Browse the repository at this point in the history
git-svn-id: http://svn.pugscode.org/pugs@31954 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information
moritz committed Aug 11, 2010
1 parent 189a680 commit d0d8b12
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions S05-modifier/continue.t
Expand Up @@ -8,15 +8,15 @@ plan *;
my regex simple { . a };
my $string = "1a2a3a";

#?rakudo skip "m:c NYI"
#?rakudo skip ':C should default to $/.to'
{
$string ~~ m:c/<simple>/;
$string ~~ m:c/<&simple>/;
is(~$/, '1a', "match first 'a'");
$string ~~ m:c/<simple>/;
$string ~~ m:c/<&simple>/;
is(~$/, '2a', "match second 'a'");
$string ~~ m:c/<simple>/;
$string ~~ m:c/<&simple>/;
is(~$/, '3a', "match third 'a'");
$string ~~ m:c/<simple>/;
$string ~~ m:c/<&simple>/;
is(~$/, '', "no more 'a's to match");
}

Expand Down

0 comments on commit d0d8b12

Please sign in to comment.