$| = 1;
-use Test::More tests => 112;
+use Test::More tests => 113;
my $fh;
my $var = "aaa\n";
}
SKIP: {
if ($Config::Config{'extensions'} !~ m!\bPerlIO/scalar\b!) {
- skip "no B", 3;
+ skip "no B", 4;
}
require B;
print $fh "abc";
ok has_trailing_nul $memfile,
'write appends null when growing string after seek past end';
+
+ open $fh, ">", \($memfile = "hello");
+ ok has_trailing_nul $memfile,
+ 'initial truncation in ">" mode provides trailing null';
}
# [perl #112780] Cloning of in-memory handles