Change 18632 by jhi@kosh on 2003/02/02 15:31:36
Also [perl #3547] has been fixed; add its test case.
Affected files ...
... //depot/perl/t/op/pat.t#190 edit
Differences ...
==== //depot/perl/t/op/pat.t#190 (xtext) ====
Index: perl/t/op/pat.t
--- perl/t/op/pat.t#189~18631~ Sun Feb 2 07:26:10 2003
+++ perl/t/op/pat.t Sun Feb 2 07:31:36 2003
@@ -6,7 +6,7 @@
$| = 1;
-print "1..979\n";
+print "1..983\n";
BEGIN {
chdir 't' if -d 't';
@@ -3075,4 +3075,11 @@
$x =~ /(AB)*CD/;
ok(!defined $1, "[perl #7471]");
-# last test 979
+$pattern = "^(b+?|a){1,2}c";
+ok("bac" =~ /$pattern/ && $1 eq 'a', "[perl #3547]");
+ok("bbac" =~ /$pattern/ && $1 eq 'a', "[perl #3547]");
+ok("bbbac" =~ /$pattern/ && $1 eq 'a', "[perl #3547]");
+ok("bbbbac" =~ /$pattern/ && $1 eq 'a', "[perl #3547]");
+
+# last test 983
+
End of Patch.
