Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[t/spec] simple tests for combining ** quantifier and :sigspace

git-svn-id: http://svn.pugscode.org/pugs@31099 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
commit f0ac25a8b76ca3a77aa7b53a4b41b58789e51a09 1 parent 41b6853
moritz authored
Showing with 5 additions and 1 deletion.
  1. +5 −1 S05-metasyntax/repeat.t
View
6 S05-metasyntax/repeat.t
@@ -14,7 +14,7 @@ be valid perl6.
# Note: single-quotes.t tests repetition on single quoted items in regexes.
-plan 18;
+plan 21;
# L<S05/Bracket rationalization/The general repetition specifier is now>
@@ -53,4 +53,8 @@ is(~('foo,bar,baz,' ~~ m/[<alpha>+] ** ','/), 'foo,bar,baz', '** with a term wor
is(~('foo,bar,baz,' ~~ m/[<alpha>+] **? ','/), 'foo', '**? with a term worked');
is(~('foo, bar,' ~~ m/[<alpha>+] **[','\s*]/), 'foo, bar', '** with a more complex term');
+ok 'a, b, c' !~~ /:s^<alpha>**\,$/, 'with no spaces around **, no spaces can be matched';
+ok 'a, b, c' ~~ /:s^ <alpha> ** \, $/, 'with spaces around **, spaces can be matched';
+ok 'a , b ,c' ~~ /:s^ <alpha> ** \, $/, 'same, but with leading spaces';
+
# vim: ft=perl6
Please sign in to comment.
Something went wrong with that request. Please try again.