From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 9 May 2003 21:33:15 +0000 (+0000)
Subject: A regression test for the remaining "Final $ should be..." error.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a40a317b715a38747586893811eae258898ef4d7;p=p5sagit%2Fp5-mst-13.2.git

A regression test for the remaining "Final $ should be..." error.

p4raw-id: //depot/perl@19469
---

diff --git a/t/comp/parser.t b/t/comp/parser.t
index 25025cc..899f867 100644
--- a/t/comp/parser.t
+++ b/t/comp/parser.t
@@ -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)