diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-06-20 23:27:13 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-22 00:53:37 +0000 |
| commit | 971976310b251a01daaf56e60430ae8263953b2d (patch) | |
| tree | 72ed1b2e2886011fea647334e6f32b818755083a /t | |
| parent | c7c9307cc294d88bccf6b755e886fdee7d955ee0 (diff) | |
| download | perl-971976310b251a01daaf56e60430ae8263953b2d.tar.gz | |
Test study/re/
Message-Id: <199806210727.DAA24072@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@1183
Diffstat (limited to '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 5516ce595c..9377b9919d 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -2,7 +2,7 @@ # $RCSfile: pat.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:12 $ -print "1..107\n"; +print "1..108\n"; $x = "abc\ndef\n"; @@ -373,6 +373,11 @@ print "not " unless $^R eq '79' and $x eq '12'; print "ok $test\n"; $test++; +# This should be changed to qr/\b\v$/ ASAP +print "not " unless study(/\b\v$/) eq '\bv$'; +print "ok $test\n"; +$test++; + sub must_warn_pat { my $warn_pat = shift; return sub { print "not " unless $_[0] =~ /$warn_pat/ } |