From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 28 Jun 2007 15:05:42 +0000 (+0000)
Subject: Fix tests so they actually test $@. like() demands a qr//.
X-Git-Tag: accepted/trunk/20130322.191538~14986
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=5a2b2173649670c2446e51812f4954c50ad80082;p=platform%2Fupstream%2Fperl.git

Fix tests so they actually test $@. like() demands a qr//.

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

diff --git a/t/op/vec.t b/t/op/vec.t
index b59eafb..4ca23f1 100755
--- a/t/op/vec.t
+++ b/t/op/vec.t
@@ -43,16 +43,16 @@ ok("$foo $bar $baz" eq "1 2 3");
 # error cases
 
 $x = eval { vec $foo, 0, 3 };
-like($@, /^Illegal number of bits in vec/);
+like($@, qr/^Illegal number of bits in vec/);
 $@ = undef;
 $x = eval { vec $foo, 0, 0 };
-like($@, /^Illegal number of bits in vec/);
+like($@, qr/^Illegal number of bits in vec/);
 $@ = undef;
 $x = eval { vec $foo, 0, -13 };
-like($@, /^Illegal number of bits in vec/);
+like($@, qr/^Illegal number of bits in vec/);
 $@ = undef;
 $x = eval { vec($foo, -1, 4) = 2 };
-like($@, /^Illegal number of bits in vec/);
+like($@, qr/^Negative offset to vec in lvalue context/);
 $@ = undef;
 ok(! vec('abcd', 7, 8));