This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
A regression test for the remaining "Final $ should be..." error.
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 9 May 2003 21:33:15 +0000 (21:33 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 9 May 2003 21:33:15 +0000 (21:33 +0000)
p4raw-id: //depot/perl@19469

t/comp/parser.t

index 25025cc..899f867 100644 (file)
@@ -9,7 +9,7 @@ BEGIN {
 }
 
 require "./test.pl";
-plan( tests => 38 );
+plan( tests => 39 );
 
 eval '%@x=0;';
 like( $@, qr/^Can't modify hash dereference in repeat \(x\)/, '%@x=0' );
@@ -52,6 +52,9 @@ like( $@, qr/error/, 'lexical block discarded by yacc' );
 eval q{ "\c" };
 like( $@, qr/^Missing control char name in \\c/, q("\c" string) );
 
+eval q{ qq(foo$) };
+like( $@, qr/Final \$ should be \\\$ or \$name/, q($ at end of "" string) );
+
 # two tests for memory corruption problems in the said variables
 # (used to dump core or produce strange results)