Add \e in quoted strings, refactor 46-charspec.t .

perl6 · Jun 3, 2010 · 5fb2d58 · 5fb2d58
1 parent 38fc6e9
commit 5fb2d58
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 4 deletions.
diff --git a/src/HLL/Actions.pm b/src/HLL/Actions.pm
@@ -186,6 +186,7 @@ method quote_escape:sym<nl>($/)  { make "\n"; }
 method quote_escape:sym<cr>($/)  { make "\r"; }
 method quote_escape:sym<tab>($/) { make "\t"; }
 method quote_escape:sym<ff>($/)  { make "\c[12]"; }
+method quote_escape:sym<esc>($/) { make "\c[27]"; }
 
 method quote_escape:sym<hex>($/) {
     make ints_to_string( $<hexint> ?? $<hexint> !! $<hexints><hexint> );

diff --git a/src/HLL/Grammar.pm b/src/HLL/Grammar.pm
@@ -85,6 +85,7 @@ grammar HLL::Grammar;
     token quote_escape:sym<cr>  { \\ r <?quotemod_check('b')> }
     token quote_escape:sym<tab> { \\ t <?quotemod_check('b')> }
     token quote_escape:sym<ff>  { \\ f <?quotemod_check('b')> }
+    token quote_escape:sym<esc> { \\ e <?quotemod_check('b')> }
     token quote_escape:sym<hex> {
         \\ x <?quotemod_check('b')>
         [ <hexint> | '[' <hexints> ']' ]

diff --git a/t/nqp/46-charspec.t b/t/nqp/46-charspec.t
@@ -2,8 +2,10 @@
 
 # check literals
 
-say('1..3');
+plan(4);
 
-say("\c111\c107 \c49");
-say("\c[111,107,32,50]");
-say("\c[LATIN SMALL LETTER O, LATIN SMALL LETTER K, SPACE, DIGIT THREE]");
+ok("\c111\c107 \c49" eq 'ok 1', '\c###');
+ok("\c[111,107,32,50]" eq 'ok 2', '\c[##,##,##]');
+ok("\c[LATIN SMALL LETTER O, LATIN SMALL LETTER K, SPACE, DIGIT THREE]" eq 'ok 3', '\c[name,name]');
+
+ok("\e" eq "\c[27]", '\e');