This is an automatically generated mail to inform you that tests are now available in t/spec/S05-metasyntax/charset.t
commit 8cf9ce6e75dec38eaf2e2c5c5474bc1336d468d2 Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64> Date: Tue Dec 29 17:02:28 2009 +0000 [t/spec] Test for RT 71702: lethal reverse range in charset git-svn-id: http://svn.pugscode.org/p...@29417 c213334d-75ef-0310-aa23-eaa082d1ae64 diff --git a/t/spec/S05-metasyntax/charset.t b/t/spec/S05-metasyntax/charset.t index 1aeba3f..329348c 100644 --- a/t/spec/S05-metasyntax/charset.t +++ b/t/spec/S05-metasyntax/charset.t @@ -12,7 +12,7 @@ be valid perl6. =end pod -plan 25; +plan *; if !eval('("a" ~~ /a/)') { skip_rest "skipped tests - rules support appears to be missing"; @@ -60,6 +60,12 @@ ok( "foo" ~~ /<[f] #`[comment] + [o]>/, 'comment embedded in charset works' ); #?rakudo skip 'large \\x char spec in regex (RT #67122) (noauto)' ok "\x[10001]" ~~ /<[\x10000..\xEFFFF]>/, 'large \\x char spec'; +#?rakudo todo 'RT 71702: lethal reverse range in charset' +eval_dies_ok( "'RT 71702' ~~ /<[d..b]>? RT/", + 'reverse range in charset is lethal (RT 71702)' ); + } +done_testing; + # vim: ft=perl6