From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 21 Feb 2002 22:42:17 +0000 (+0000)
Subject: Test for #14795.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c46248c1e30fc825bdbf156de6310d2bdda7e263;p=p5sagit%2Fp5-mst-13.2.git

Test for #14795.

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

diff --git a/t/op/pat.t b/t/op/pat.t
index d112bcc..9b4fb13 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -6,7 +6,7 @@
 
 $| = 1;
 
-print "1..854\n";
+print "1..855\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -2667,3 +2667,19 @@ print "# some Unicode properties\n";
     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";
+}