Permalink
Browse files

More tests.

  • Loading branch information...
1 parent 9d64d20 commit a5d539eb409ea65aead5ea730ea1bab89e3b0c65 @colomon committed Sep 3, 2012
Showing with 6 additions and 0 deletions.
  1. +6 −0 t/01-character-classes.t
View
@@ -26,4 +26,10 @@ for '!"*$%&.#+,-()?/:;<=>@[]{|}^`~'.comb -> $symbol {
ok $match, "<special> matches $symbol - 2";
}
+for '\\!"*$%&.abc?/:AB0<=>@[]{|}^`~'.comb -> $symbol {
+ my $match = ISO_10303_21::Grammar.parse($symbol, :rule<character>);
+ isa_ok $match, Match, "<character> matches $symbol - 1";
+ ok $match, "<character> matches $symbol - 2";
+}
+
done;

0 comments on commit a5d539e

Please sign in to comment.