Change 17721 by [EMAIL PROTECTED] on 2002/08/12 12:17:19
#17717 needed tests fixing up
Affected files ...
.... //depot/perl/t/op/chop.t#14 edit
Differences ...
==== //depot/perl/t/op/chop.t#14 (xtext) ====
Index: perl/t/op/chop.t
--- perl/t/op/chop.t#13~17717~ Mon Aug 12 04:44:06 2002
+++ perl/t/op/chop.t Mon Aug 12 05:17:19 2002
@@ -175,11 +175,11 @@
# 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/);
End of Patch.
