Test study/re/
Ilya Zakharevich [Sun, 21 Jun 1998 03:27:13 +0000 (23:27 -0400)]
Message-Id: <199806210727.DAA24072@monk.mps.ohio-state.edu>

p4raw-id: //depot/perl@1183

t/op/pat.t

index 5516ce5..9377b99 100755 (executable)
@@ -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/ }