Permalink
Browse files

rakudo refudging

  • Loading branch information...
1 parent a2275c3 commit 644e553a20e6983c21837971d45be793b6a85cc9 @moritz moritz committed May 16, 2012
Showing with 4 additions and 4 deletions.
  1. +1 −1 S05-capture/subrule.t
  2. +3 −3 S05-metasyntax/repeat.t
View
@@ -27,7 +27,7 @@ ok(@($/) == 0, 'Once no array capture');
ok(%($/).keys == 0, 'Once no hash capture');
-my regex rep {<&abc>**{4}}
+my regex rep {<&abc>**4}
ok("abcabcabcabcd" ~~ m/<&rep>/, 'Rep match');
ok($/, 'Rep matched');
View
@@ -25,26 +25,26 @@ ok("abcabcabcabcd" ~~ m/'abc'**4/, 'Fixed exact repetition');
is $/, 'abc' x 4, '...with the correct capture';
ok(!("abcabcabcabcd" ~~ m/'abc'**5/), 'Fail fixed exact repetition');
#?pugs todo force_todo
+#?rakudo 2 skip 'closure repetition'
ok("abcabcabcabcd" ~~ m/'abc'**{4}/, 'Fixed exact repetition using closure');
-#?rakudo todo 'closure repetition'
ok(!( "abcabcabcabcd" ~~ m/'abc'**{5}/ ), 'Fail fixed exact repetition using closure');
# Closed range repetition
#?pugs todo
ok("abcabcabcabcd" ~~ m/'abc'**2..4/, 'Fixed range repetition');
ok(!( "abc" ~~ m/'abc'**2..4/ ), 'Fail fixed range repetition');
#?pugs todo force_todo
+#?rakudo 2 skip 'closure repetition'
ok("abcabcabcabcd" ~~ m/'abc'**{2..4}/, 'Fixed range repetition using closure');
-#?rakudo todo 'closure repetition'
ok(!( "abc" ~~ m/'abc'**{2..4}/ ), 'Fail fixed range repetition using closure');
# Open range repetition
#?pugs todo
ok("abcabcabcabcd" ~~ m/'abc'**2..*/, 'Open range repetition');
ok(!( "abcd" ~~ m/'abc'**2..*/ ), 'Fail open range repetition');
#?pugs todo force_todo
+#?rakudo 2 skip 'closure repetition'
ok("abcabcabcabcd" ~~ m/'abc'**{2..*}/, 'Open range repetition using closure');
-#?rakudo todo 'closure repetition'
ok(!( "abcd" ~~ m/'abc'**{2..*}/), 'Fail open range repetition using closure');
# It is illegal to return a list, so this easy mistake fails:

0 comments on commit 644e553

Please sign in to comment.