projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
c7c9307
)
Test study/re/
author
Ilya Zakharevich
<ilya@math.berkeley.edu>
Sun, 21 Jun 1998 03:27:13 +0000
(23:27 -0400)
committer
Gurusamy Sarathy
<gsar@cpan.org>
Mon, 22 Jun 1998 00:53:37 +0000
(
00:53
+0000)
Message-Id: <
199806210727
.
DAA24072
@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@1183
t/op/pat.t
patch
|
blob
|
history
diff --git
a/t/op/pat.t
b/t/op/pat.t
index
5516ce5
..
9377b99
100755
(executable)
--- 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..10
7
\n";
+print "1..10
8
\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/ }