[pge]: Update LHS message and add some tests for RT #42334 and #56224.

git-svn-id: https://svn.parrot.org/parrot/trunk@32834 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
fernandobrito · Nov 18, 2008 · 3e697f4 · 3e697f4
1 parent 23bf54f
commit 3e697f4
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 1 deletion.
diff --git a/compilers/pge/PGE/Perl6Regex.pir b/compilers/pge/PGE/Perl6Regex.pir
@@ -1498,7 +1498,7 @@ Parse a modifier.
   err_no_lvalue:
     $P0 = get_hll_global ['PGE';'Perl6Regex'], 'parse_error'
     $I0 = self.'from'()
-    $P0(self, $I0, 'lhs of alias must be an lvalue')
+    $P0(self, $I0, 'LHS of alias must be lvalue')
 .end
 
 

diff --git a/t/compilers/pge/perl6regex/rx_syntax b/t/compilers/pge/perl6regex/rx_syntax
@@ -26,5 +26,16 @@
 [a|?]		abcdef		/Quantifier follows nothing/	bare ? after |
 [a| ?]		abcdef		/Quantifier follows nothing/	bare ? after |+sp
 
+: abc		abcdef		/Quantifier follows nothing/	bare : at start
+  : abc		abcdef		/Quantifier follows nothing/	bare : after ws
+[:|a]		abcdef		/Quantifier follows nothing/	bare : after [
+[ :|a]		abcdef		/Quantifier follows nothing/	bare : after [+sp
+[a|:]		abcdef		/Quantifier follows nothing/	bare : after |
+[a| :]		abcdef		/Quantifier follows nothing/	bare : after |+sp
+
 		abcdef		/Null pattern illegal/		null pattern
   		abcdef		/Null pattern illegal/		ws null pattern
+
+  =abc		abcdef		/LHS of alias must be lvalue/	bare : after ws
+[ =a]		abcdef		/LHS of alias must be lvalue/	bare : after [+sp
+[a| =a]		abcdef		/LHS of alias must be lvalue/	bare : after |+sp