From: Hugo van der Sanden <hv@crypt.org>
Date: Mon, 12 Aug 2002 12:17:19 +0000 (+0000)
Subject: #17717 needed tests fixing up
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=30ebab2d3dd617d1dcdf565b56bdcd0db1751f0b;p=p5sagit%2Fp5-mst-13.2.git

#17717 needed tests fixing up

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

diff --git a/t/op/chop.t b/t/op/chop.t
index 1ac45c3..87700de 100755
--- a/t/op/chop.t
+++ b/t/op/chop.t
@@ -175,11 +175,11 @@ foreach (keys %chop) {
 
 # chop and chomp can't be lvalues
 eval 'chop($x) = 1;';
-print $@ =~ /Can\'t modify.*chop.*in.*assignment/ ? "ok 48\n" : "not ok 48\n";
+ok($@ =~ /Can\'t modify.*chop.*in.*assignment/);
 eval 'chomp($x) = 1;';
-print $@ =~ /Can\'t modify.*chom?p.*in.*assignment/ ? "ok 49\n" : "not ok 49\n";
+ok($@ =~ /Can\'t modify.*chom?p.*in.*assignment/);
 eval 'chop($x, $y) = (1, 2);';
-print $@ =~ /Can\'t modify.*chop.*in.*assignment/ ? "ok 50\n" : "not ok 50\n";
+ok($@ =~ /Can\'t modify.*chop.*in.*assignment/);
 eval 'chomp($x, $y) = (1, 2);';
-print $@ =~ /Can\'t modify.*chom?p.*in.*assignment/ ? "ok 51\n" : "not ok 51\n";
+ok($@ =~ /Can\'t modify.*chom?p.*in.*assignment/);