From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 23 Dec 2001 13:50:25 +0000 (+0000)
Subject: Move the \C and \X to pat.t.
X-Git-Tag: accepted/trunk/20130322.191538~28693
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=112bedeb9730c2d3f20c786393533d63405c8b39;p=platform%2Fupstream%2Fperl.git

Move the \C and \X to pat.t.

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

diff --git a/t/op/pat.t b/t/op/pat.t
index dc42181..30fc1a9 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -6,7 +6,7 @@
 
 $| = 1;
 
-print "1..792\n";
+print "1..794\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -2411,3 +2411,10 @@ print "# some Unicode properties\n";
 	$1 eq "\N{LATIN CAPITAL LETTER E}\N{COMBINING GRAVE ACCENT}" ?
 	"ok 792\n" : "not ok 792 # $1\n";
 }
+
+{
+    print "#\\C and \\X\n";
+
+    print "!abc!" =~ /a\Cc/ ? "ok 793\n" : "not ok 793\n";
+    print "!abc!" =~ /a\Xc/ ? "ok 794\n" : "not ok 794\n";
+}
diff --git a/t/op/re_tests b/t/op/re_tests
index c3e177d..3d939a6 100644
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -797,6 +797,3 @@ ab(?i)cd	abCd	y	-	-
 (A|B)*?(?(1)(CD)|(CD))	CD	y	$2-$3	-CD	# [ID 20010803.016]
 (A|B)*?(?(1)(CD)|(CD))	ABCD	y	$2-$3	CD-
 '^(o)(?!.*\1)'i	Oo	n	-	-
-a.c	!abc!	y	$&	abc	    
-a\Cc	!abc!	y	$&	abc
-a\Xc	!abc!	y	$&	abc