Change 13864 by jhi@alpha on 2001/12/23 13:50:25
Move the \C and \X to pat.t.
Affected files ...
.... //depot/perl/t/op/pat.t#138 edit
.... //depot/perl/t/op/re_tests#71 edit
Differences ...
==== //depot/perl/t/op/pat.t#138 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t.~1~ Sun Dec 23 07:00:05 2001
+++ perl/t/op/pat.t Sun Dec 23 07:00:05 2001
@@ -6,7 +6,7 @@
$| = 1;
-print "1..792\n";
+print "1..794\n";
BEGIN {
chdir 't' if -d 't';
@@ -2411,3 +2411,10 @@
$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";
+}
==== //depot/perl/t/op/re_tests#71 (text) ====
Index: perl/t/op/re_tests
--- perl/t/op/re_tests.~1~ Sun Dec 23 07:00:05 2001
+++ perl/t/op/re_tests Sun Dec 23 07:00:05 2001
@@ -797,6 +797,3 @@
(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
End of Patch.
