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 (executable)
--- 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 (file)
--- 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