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

Also [perl #3547] has been fixed; add its test case.

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

diff --git a/t/op/pat.t b/t/op/pat.t
index b4349b6..0868546 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -6,7 +6,7 @@
 
 $| = 1;
 
-print "1..979\n";
+print "1..983\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -3075,4 +3075,11 @@ $x = "CD";
 $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
+