From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on dcvr.yhbt.net X-Spam-Level: X-Spam-ASN: X-Spam-Status: No, score=-4.2 required=3.0 tests=ALL_TRUSTED,AWL,BAYES_00, DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF shortcircuit=no autolearn=ham autolearn_force=no version=3.4.6 Received: from localhost (dcvr.yhbt.net [127.0.0.1]) by dcvr.yhbt.net (Postfix) with ESMTP id 60BE71F406 for ; Sat, 28 Oct 2023 22:02:38 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=80x24.org; s=selector1; t=1698530558; bh=DRoXpxwq5pFHTADDPfAI+LSahG1ce5Y/kaVbZvWFaDY=; h=From:To:Subject:Date:From; b=2RAQdbdK7sibGhkR9u7O9z9Vkl/dMwHOgnlrY0/IuE8FJg1Z1NbnkuO0FmN+ZMMqC Pr6XRqVl2WRFOzODbCWMptccU56ONaeG5V3VJQr/TeLGQ7mjzq3rmzYhgdEKCUVB5R VIEGMKCV8G/teiOM0k/oLd1cxg/B3rghFWjMPtgo= From: Eric Wong To: spew@80x24.org Subject: [PATCH] t/io.t: write_file syscall error injection test Date: Sat, 28 Oct 2023 22:02:38 +0000 Message-ID: <20231028220238.132963-1-e@80x24.org> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: --- t/io.t | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 t/io.t diff --git a/t/io.t b/t/io.t new file mode 100644 index 00000000..4c7a97a3 --- /dev/null +++ b/t/io.t @@ -0,0 +1,33 @@ +#!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); + +# only test failures +SKIP: { +skip 'linux only test' if $^O ne 'linux'; +my $strace = which('strace') or skip 'strace missing for test'; +my $v = run_qx([$strace, '--version']); +$v =~ m!version\s+([1-9]+\.[0-9]+)! or xbail "no strace --version: $v"; +$v = eval("v$1"); +$v ge v4.16 or skip "$strace too old for syscall injection (". + sprintf('v%vd', $v). ' < v4.16)'; +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 + +done_testing;