diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-02 15:26:10 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-02 15:26:10 +0000 |
| commit | fbeb8e69a2839da21922b2334a124af719d18406 (patch) | |
| tree | ca21745a539fbadd1d4d4dcee1a2e60a1c2050a1 /t | |
| parent | ce97f9d69d26783e9803b3879ab49cfe84d4b1ab (diff) | |
| download | perl-fbeb8e69a2839da21922b2334a124af719d18406.tar.gz | |
The [perl #7471] seems to have been fixed; add its test.
p4raw-id: //depot/perl@18631
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 7386f26977..b4349b6bb4 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -6,7 +6,7 @@ $| = 1; -print "1..977\n"; +print "1..979\n"; BEGIN { chdir 't' if -d 't'; @@ -3067,5 +3067,12 @@ 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 +$x = "CD"; +$x =~ /(AB)*?CD/; +ok(!defined $1, "[perl #7471]"); +$x = "CD"; +$x =~ /(AB)*CD/; +ok(!defined $1, "[perl #7471]"); + +# last test 979 |