From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Sun, 21 Jun 1998 03:27:13 +0000 (-0400)
Subject: Test study/re/
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=971976310b251a01daaf56e60430ae8263953b2d;p=p5sagit%2Fp5-mst-13.2.git

Test study/re/

	Message-Id: <199806210727.DAA24072@monk.mps.ohio-state.edu>

p4raw-id: //depot/perl@1183
---

diff --git a/t/op/pat.t b/t/op/pat.t
index 5516ce5..9377b99 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/ }