Change 18630 by jhi@kosh on 2003/02/02 15:21:23
[perl #15397] seems to have been fixed; add its test.
Affected files ...
... //depot/perl/t/op/pat.t#188 edit
Differences ...
==== //depot/perl/t/op/pat.t#188 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t#187~18608~ Fri Jan 31 00:24:53 2003
+++ perl/t/op/pat.t Sun Feb 2 07:21:23 2003
@@ -6,7 +6,7 @@
$| = 1;
-print "1..972\n";
+print "1..977\n";
BEGIN {
chdir 't' if -d 't';
@@ -3061,4 +3061,11 @@
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
+
End of Patch.
