tests for <at>

Raku · Dec 21, 2011 · b3cf6e6 · b3cf6e6
1 parent 911d8bd
commit b3cf6e6
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/S05-mass/stdrules.t b/S05-mass/stdrules.t
@@ -14,7 +14,7 @@ be valid perl6.
 
 # L<S05/Extensible metasyntax (C<< <...> >>)/"The special named assertions include">
 
-plan 183;
+plan 186;
 
 #?pugs emit force_todo(9,12,13,15,16);
 
@@ -325,4 +325,9 @@ ok("\x07A" ~~ m/<+alpha>/, q{Match unanchored alpha as charset});
 ok 'abc' !~~ /a <!>/, '<!> fails';
 ok '' !~~ /<!>/, '<!> fails (empty string)';
 
+#?niecza 3 skip '<at>'
+ ok 'abc' ~~ /^<at(0)>/, 'basic <at>';
+nok 'abc' ~~ /^<at(1)>/, '^<at(1) fails';
+ ok 'abc' ~~ /<at(1)>/, '<at(1) searches until it matches';
+
 # vim: ft=perl6