From 971976310b251a01daaf56e60430ae8263953b2d Mon Sep 17 00:00:00 2001 From: Ilya Zakharevich Date: Sat, 20 Jun 1998 23:27:13 -0400 Subject: Test study/re/ Message-Id: <199806210727.DAA24072@monk.mps.ohio-state.edu> p4raw-id: //depot/perl@1183 --- t/op/pat.t | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 't') 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/ } -- cgit v1.2.1