#!perl -w
# Copyright (C) all contributors
# License: AGPL-3.0+
use v5.12;
use PublicInbox::TestCommon;
my $tmpdir = tmpdir;
use_ok 'PublicInbox::IO';
use PublicInbox::Spawn qw(which run_qx);
# test failures:
SKIP: {
my $strace = strace_inject;
my $env = { PERL5LIB => join(':', @INC) };
my $opt = { 1 => \my $out, 2 => \my $err };
my $dst = "$tmpdir/dst";
my $tr = "$tmpdir/tr";
my $cmd = [ $strace, "-o$tr", "-P$dst",
'-e', 'inject=writev,write:error=EIO',
$^X, qw(-w -MPublicInbox::IO=write_file -e),
q[write_file '>', $ARGV[0], 'hello world'], $dst ];
xsys($cmd, $env, $opt);
isnt($?, 0, 'write failed');
like($err, qr/\bclose\b/, 'close error noted');
is(-s $dst, 0, 'file created and empty after EIO');
} # /SKIP
PublicInbox::IO::write_file '>:unix', "$tmpdir/f", "HI\n";
is(-s "$tmpdir/f", 3, 'write_file works w/ IO layer');
PublicInbox::IO::write_file '>>', "$tmpdir/f", "HI\n";
is(-s "$tmpdir/f", 6, 'write_file can append');
is PublicInbox::IO::try_cat("$tmpdir/non-existent"), '',
"try_cat on non-existent file returns `'";
done_testing;