diff options
| author | Eric Wong <e@80x24.org> | 2023-04-28 01:08:19 +0000 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2023-04-28 22:58:58 +0000 |
| commit | c791fd9ecc60b7bd6f41b18f928279f8df5cc733 (patch) | |
| tree | 9c2e2be1d4054bdf3db5fd142b8e458278f45d97 | |
| parent | fc6ff982395f13efe56d5d4dd290359ee389b71b (diff) | |
| download | public-inbox-c791fd9ecc60b7bd6f41b18f928279f8df5cc733.tar.gz | |
I encountered this SIGPIPE test not working as intended on FreeBSD 12.4 once (out of hundreds of runs); but can't reproduce it...
| -rw-r--r-- | t/gzip_filter.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/gzip_filter.t b/t/gzip_filter.t index b349ae58..97eac2d0 100644 --- a/t/gzip_filter.t +++ b/t/gzip_filter.t @@ -1,7 +1,7 @@ -# Copyright (C) 2020-2021 all contributors <meta@public-inbox.org> +#!perl -w +# Copyright (C) all contributors <meta@public-inbox.org> # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt> -use strict; -use Test::More; +use v5.12; use IO::Handle (); # autoflush use Fcntl qw(SEEK_SET); use PublicInbox::TestCommon; @@ -31,7 +31,7 @@ require_ok 'PublicInbox::GzipFilter'; open my $fh, '<', 'COPYING' or die "open(COPYING): $!"; my $buf = do { local $/; <$fh> }; while ($filter->write($buf .= rand)) {} - ok($sigpipe, 'got SIGPIPE'); + ok($sigpipe, 'got SIGPIPE') or diag "\$!=$!"; close $w; } done_testing; |