Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
RT #116415, test that /. ** 0/ doesnt match entire string
  • Loading branch information
FROGGS committed Jan 24, 2013
1 parent eeaa7f6 commit 9a11e22
Showing 1 changed file with 14 additions and 1 deletion.
15 changes: 14 additions & 1 deletion S05-mass/rx.t
@@ -1,6 +1,6 @@
use Test;

plan 733;
plan 737;

### for now
#?pugs emit #
Expand Down Expand Up @@ -2563,6 +2563,19 @@ ok 'baaabbb' ~~ /a**:!2..4/, 'three "a" characters (explicit greed)';
is $/.Str, 'x' x $rt112454, '** quantifier with braces (RT 112454)';
}

# RT 116415
#?pugs skip 'RT 116415'
{
my $rt116415 = 0;

ok 'foobar' ~~ / . ** 0 /, 'RT 116415 match sanity';
is $/.Str, '', 'RT 116415 quantifier sanity';

#?rakudo 2 skip 'RT 116415'
ok 'foobar' ~~ / . ** {$rt116415} /, 'Simple match (RT 116415)';
is $/.Str, '', '** quantifier with braces (RT 116415)';
}

#### <ident> 2+3 ab2 /mob<ident>: <ab2 @ 4>/ capturing builtin <ident>
#?pugs todo
ok ('2+3 ab2' ~~ /<ident>/) && matchcheck($/, q/mob<ident>: <ab2 @ 4>/), 'capturing builtin <ident>';
Expand Down

0 comments on commit 9a11e22

Please sign in to comment.