This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test for #14795.
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 21 Feb 2002 22:42:17 +0000 (22:42 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 21 Feb 2002 22:42:17 +0000 (22:42 +0000)
p4raw-id: //depot/perl@14822

t/op/pat.t

index d112bcc..9b4fb13 100755 (executable)
@@ -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";
+}