diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-11-27 20:51:56 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-28 19:30:06 +0000 |
| commit | 8f580fb8c3adcd8061f0e72f718bbf4ff930d697 (patch) | |
| tree | af6f381f84ea6a17ce41b3bd1f28f207fe375cba /t/op/pat.t | |
| parent | 5c5e4c245abefef949ee72dd179eff31d923dcb2 (diff) | |
| download | perl-8f580fb8c3adcd8061f0e72f718bbf4ff930d697.tar.gz | |
Change $#+
Message-Id: <199811280651.BAA18095@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@2373
Diffstat (limited to 't/op/pat.t')
| -rwxr-xr-x | t/op/pat.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index a289fbe08d..7bcc196ed1 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -4,7 +4,7 @@ # the format supported by op/regexp.t. If you want to add a test # that does fit that format, add it to op/re_tests, not here. -print "1..176\n"; +print "1..177\n"; BEGIN { chdir 't' if -d 't'; @@ -692,6 +692,11 @@ print "not " print "ok $test\n"; $test++; +/.(a)(ba*)?/; +print "#$#-..$#+\nnot " if $#+ != 2 or $#- != 1; +print "ok $test\n"; +$test++; + $str = 'abcde'; pos $str = 2; |