diff options
Diffstat (limited to 't')
-rwxr-xr-x | t/io/utf8.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/io/utf8.t b/t/io/utf8.t index 2d74cff976..d973a2aae6 100755 --- a/t/io/utf8.t +++ b/t/io/utf8.t @@ -188,8 +188,10 @@ unlink('a'); open F, ">a"; @a = map { chr(1 << ($_ << 2)) } 0..5; # 0x1, 0x10, .., 0x100000 +unshift @a, chr(0); # ... and a null byte in front just for fun print F @a; close F; + open F, "<:utf8", "a"; $a = 0; for (@a) { @@ -205,6 +207,7 @@ for (@a) { last; } } +close F; print "ok 26\n"; END { 1 while unlink "a" } |