Better test for #14795 (bug id 20020124.005) from Andreas.

p4raw-id: //depot/perl@15113

1 files changed, 18 insertions, 18 deletions

diff --git a/t/op/pat.t b/t/op/pat.t
index b3db7ded17..4fb3d45e5e 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -6,7 +6,7 @@
 
 $| = 1;
 
-print "1..858\n";
+print "1..860\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -2675,22 +2675,6 @@ print "# some Unicode properties\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";
-}
-
-{
     print "# UTF-8 hash keys and /\$/\n";
     # http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2002-01/msg01327.html
 
@@ -2698,7 +2682,7 @@ print "# some Unicode properties\n";
     my $v = substr($u,0,1);
     my $w = substr($u,1,1);
     my %u = ( $u => $u, $v => $v, $w => $w );
-    my $i = 856; 
+    my $i = 855; 
     for (keys %u) {
 	my $m1 = /^\w*$/ ? 1 : 0;
 	my $m2 = $u{$_}=~/^\w*$/ ? 1 : 0;
@@ -2706,3 +2690,19 @@ print "# some Unicode properties\n";
 	$i++;
     }
 }
+
+{
+    print "# [ID 20020124.005]\n";
+    # Fixed by #14795.
+    my $i = 858;
+    for my $char ("a", "\x{df}", "\x{100}"){
+	$x = "$char b $char";
+	$x =~ s{($char)}{
+	    "c" =~ /c/;
+	    "x";
+	}ge;
+	print substr($x,0,1) eq substr($x,-1,1) ?
+	    "ok $i\n" : "not ok $i # debug: $x\n";
+ 	$i++;
+   }
+}