Change 14822 by jhi@alpha on 2002/02/21 22:42:17
Test for #14795.
Affected files ...
.... //depot/perl/t/op/pat.t#159 edit
Differences ...
==== //depot/perl/t/op/pat.t#159 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t.~1~ Thu Feb 21 15:45:05 2002
+++ perl/t/op/pat.t Thu Feb 21 15:45:05 2002
@@ -6,7 +6,7 @@
$| = 1;
-print "1..854\n";
+print "1..855\n";
BEGIN {
chdir 't' if -d 't';
@@ -2667,3 +2667,19 @@
print "\x{400}AB" =~ /(?<=\x{400}.)B/ ? "ok 853\n" : "not ok 853\n";
print "\x{500\x{600}}B" =~ /(?<=\x{500}.)B/ ? "ok 854\n" : "not ok 854\n";
}
+
+{
+ print "# [ID 20020124.005]\n";
+
+ # Fixed by #14795.
+
+ $char = "\x{f00f}";
+ $x = "$char b $char";
+
+ $x =~ s{($char)}{
+ "c" =~ /d/;
+ "x";
+ }ge;
+
+ print $x eq "x b x" ? "ok 855\n" : "not ok 855\n";
+}
End of Patch.
