From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 2 Feb 2003 15:21:23 +0000 (+0000)
Subject: [perl #15397] seems to have been fixed; add its test.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ce97f9d69d26783e9803b3879ab49cfe84d4b1ab;p=p5sagit%2Fp5-mst-13.2.git

[perl #15397] seems to have been fixed; add its test.

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

diff --git a/t/op/pat.t b/t/op/pat.t
index 7a324db..7386f26 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -6,7 +6,7 @@
 
 $| = 1;
 
-print "1..972\n";
+print "1..977\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -3061,4 +3061,11 @@ ok(/[^\d]+/, "m/[^\d]/ utf8");
 ok(($a = $_, $_ =~ s/[^\s]+/./g), "s/[^\s]/ utf8");
 ok(($a = $_, $a =~ s/[^\d]+/./g), "s/[^\s]/ utf8");
 
-# last test 972
+ok("\x{100}" =~ /\x{100}/, "[perl #15397]");
+ok("\x{100}" =~ /(\x{100})/, "[perl #15397]");
+ok("\x{100}" =~ /(\x{100}){1}/, "[perl #15397]");
+ok("\x{100}\x{100}" =~ /(\x{100}){2}/, "[perl #15397]");
+ok("\x{100}\x{100}" =~ /(\x{100})(\x{100})/, "[perl #15397]");
+
+# last test 977
+