diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-07-11 14:55:17 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-07-11 14:55:17 +0000 |
| commit | 25f684f718f20320d62ba2370f2f4341a3b159e7 (patch) | |
| tree | ff408180cef8f173dbfcea3df8f6c957ea87f645 /t | |
| parent | 872d7e53b29f06ce069b05dc9063be581f956098 (diff) | |
| download | perl-25f684f718f20320d62ba2370f2f4341a3b159e7.tar.gz | |
Revert bogus fix for bug #27940, which wasn't really a bug,
and a new test item, as found and suggested by Sadahiro Tomoyuki.
p4raw-id: //depot/perl@28548
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index aeab0f7a19..e4ba07f93f 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -7,7 +7,7 @@ $| = 1; # please update note at bottom of file when you change this -print "1..1211\n"; +print "1..1212\n"; BEGIN { chdir 't' if -d 't'; @@ -3312,6 +3312,7 @@ ok("abc" =~ /[^\cA-\cB]/, '\cA in negated character class range'); ok("a\cBb" =~ /[\cA-\cC]/, '\cB in character class range'); ok("a\cCbc" =~ /[^\cA-\cB]/, '\cC in negated character class range'); ok("a\cAb" =~ /(??{"\cA"})/, '\cA in ??{} pattern'); +ok("ab" !~ /a\cIb/x, '\cI in pattern'); # perl #28532: optional zero-width match at end of string is ignored ok(("abc" =~ /^abc(\z)?/) && defined($1), |