From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 10 Nov 2005 09:11:26 +0000 (+0000)
Subject: Add tests for two untested syntax error messages about \N
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fd7808cb43ac6038cce4f46f2e83c3042efbf142;p=p5sagit%2Fp5-mst-13.2.git

Add tests for two untested syntax error messages about \N

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

diff --git a/t/comp/parser.t b/t/comp/parser.t
index 645e6e2..bbc3c83 100644
--- a/t/comp/parser.t
+++ b/t/comp/parser.t
@@ -9,7 +9,7 @@ BEGIN {
 }
 
 require "./test.pl";
-plan( tests => 54 );
+plan( tests => 56 );
 
 eval '%@x=0;';
 like( $@, qr/^Can't modify hash dereference in repeat \(x\)/, '%@x=0' );
@@ -23,6 +23,13 @@ eval q/"\x{"/;
 like( $@, qr/^Missing right brace on \\x/,
     'syntax error in string, used to dump core' );
 
+eval q/"\N{"/;
+like( $@, qr/^Missing right brace on \\N/,
+    'syntax error in string with incomplete \N' );
+eval q/"\Nfoo"/;
+like( $@, qr/^Missing braces on \\N/,
+    'syntax error in string with incomplete \N' );
+
 eval "a.b.c.d.e.f;sub";
 like( $@, qr/^Illegal declaration of anonymous subroutine/,
     'found by Markov chain stress testing' );