Browse files

[repeat.t] don't use [abc] to mean 'abc' since it looks like old-scho…

…ol character class

git-svn-id: http://svn.pugscode.org/pugs@30570 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 69be53a commit 932ac543ef52052084486fc5f8ea7d2d8a677814 lwall committed May 6, 2010
Showing with 12 additions and 12 deletions.
  1. +12 −12 S05-metasyntax/repeat.t
View
24 S05-metasyntax/repeat.t
@@ -19,29 +19,29 @@ plan 18;
# L<S05/Bracket rationalization/The general repetition specifier is now>
# Exact repetition
-ok("abcabcabcabcd" ~~ m/[abc]**4/, 'Fixed exact repetition');
+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');
+ok(!("abcabcabcabcd" ~~ m/'abc'**5/), 'Fail fixed exact repetition');
#?pugs todo force_todo
-ok("abcabcabcabcd" ~~ m/[abc]**{4}/, 'Fixed exact repetition using closure');
+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');
+ok(!( "abcabcabcabcd" ~~ m/'abc'**{5}/ ), 'Fail fixed exact repetition using closure');
# Closed range repetition
-ok("abcabcabcabcd" ~~ m/[abc]**2..4/, 'Fixed range repetition');
-ok(!( "abc" ~~ m/[abc]**2..4/ ), 'Fail fixed range repetition');
+ok("abcabcabcabcd" ~~ m/'abc'**2..4/, 'Fixed range repetition');
+ok(!( "abc" ~~ m/'abc'**2..4/ ), 'Fail fixed range repetition');
#?pugs todo force_todo
-ok("abcabcabcabcd" ~~ m/[abc]**{2..4}/, 'Fixed range repetition using closure');
+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');
+ok(!( "abc" ~~ m/'abc'**{2..4}/ ), 'Fail fixed range repetition using closure');
# Open range repetition
-ok("abcabcabcabcd" ~~ m/[abc]**2..*/, 'Open range repetition');
-ok(!( "abcd" ~~ m/[abc]**2..*/ ), 'Fail open range repetition');
+ok("abcabcabcabcd" ~~ m/'abc'**2..*/, 'Open range repetition');
+ok(!( "abcd" ~~ m/'abc'**2..*/ ), 'Fail open range repetition');
#?pugs todo force_todo
-ok("abcabcabcabcd" ~~ m/[abc]**{2..*}/, 'Open range repetition using closure');
+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');
+ok(!( "abcd" ~~ m/'abc'**{2..*}/), 'Fail open range repetition using closure');
# It is illegal to return a list, so this easy mistake fails:
#?rakudo todo 'catch {1,3} old-style repetition quantifier'

0 comments on commit 932ac54

Please sign in to comment.