X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Fchop.t;h=bacc439676a26b594a1ce52c0fe9bf7e9a086e60;hb=3ab3c9b49fb213f2b1d4cda8797de17be82b2b15;hp=29f5dddf6b37029d16b674485428d7cf0509425a;hpb=a6aa349da2cd706a05b205fa788c278b74c24bdc;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/chop.t b/t/op/chop.t
index 29f5ddd..bacc439 100755
--- a/t/op/chop.t
+++ b/t/op/chop.t
@@ -6,7 +6,7 @@ BEGIN {
     require './test.pl';
 }
 
-plan tests => 93;
+plan tests => 133;
 
 $_ = 'abc';
 $c = do foo();
@@ -189,7 +189,7 @@ foreach my $start (@chars) {
     local $/ = $end;
     my $message = "start=" . ord ($start) . " end=" . ord $end;
     my $string = $start . $end;
-    chomp $string;
+    is (chomp ($string), 1, "$message [returns 1]");
     is ($string, $start, $message);
 
     my $end_utf8 = $end;
@@ -199,13 +199,13 @@ foreach my $start (@chars) {
     # $end ne $end_utf8, so these should not chomp.
     $string = $start . $end_utf8;
     my $chomped = $string;
-    chomp $chomped;
+    is (chomp ($chomped), 0, "$message (end as bytes) [returns 0]");
     is ($chomped, $string, "$message (end as bytes)");
 
     $/ = $end_utf8;
     $string = $start . $end;
     $chomped = $string;
-    chomp $chomped;
+    is (chomp ($chomped), 0, "$message (\$/ as bytes) [returns 0]");
     is ($chomped, $string, "$message (\$/ as bytes)");
   }
 }