Re: Analysis of problems with mixed encoding case insensitive matches in regex engine.

[p5sagit/p5-mst-13.2.git] / t / op / chop.t

diff --git a/t/op/chop.t b/t/op/chop.t
index 29f5ddd..503f6f7 100755 (executable)
--- a/t/op/chop.t
+++ b/t/op/chop.t
@@ -6,7 +6,7 @@ BEGIN {
     require './test.pl';
 }
 
-plan tests => 93;
+plan tests => 139;
 
 $_ = 'abc';
 $c = do foo();
@@ -183,13 +183,13 @@ ok($@ =~ /Can\'t modify.*chop.*in.*assignment/);
 eval 'chomp($x, $y) = (1, 2);';
 ok($@ =~ /Can\'t modify.*chom?p.*in.*assignment/);
 
-my @chars = ("N", "\xd3", substr ("\xd4\x{100}", 0, 1), chr 1296);
+my @chars = ("N", ord('A') == 193 ? "\xee" : "\xd3", substr ("\xd4\x{100}", 0, 1), chr 1296);
 foreach my $start (@chars) {
   foreach my $end (@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)");
   }
 }
@@ -222,3 +222,24 @@ foreach my $start (@chars) {
     $b = chomp $a;
     is ($b, 2);
 }
+
+{
+    # [perl #36569] chop fails on decoded string with trailing nul
+    my $asc = "perl\0";
+    my $utf = "perl".pack('U',0); # marked as utf8
+    is(chop($asc), "\0", "chopping ascii NUL");
+    is(chop($utf), "\0", "chopping utf8 NUL");
+    is($asc, "perl", "chopped ascii NUL");
+    is($utf, "perl", "chopped utf8 NUL");
+}
+
+{
+    # Change 26011: Re: A surprising segfault
+    # to make sure only that these obfuscated sentences will not crash.
+
+    map chop(+()), ('')x68;
+    ok(1, "extend sp in pp_chop");
+
+    map chomp(+()), ('')x68;
+    ok(1, "extend sp in pp_chomp");
+}