From 2289dc4ab72cb31475039e26cb10786e6bf573d2 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Tue, 21 Apr 2020 03:22:52 +0000 Subject: t/nntpd: die if we can't open stderr output We need to detect FS errors and bail out on the test if we can't open a file -nntpd was just writing to. --- t/nntpd.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 't/nntpd.t') diff --git a/t/nntpd.t b/t/nntpd.t index 2d7280a5..5a3a62fb 100644 --- a/t/nntpd.t +++ b/t/nntpd.t @@ -329,12 +329,12 @@ Date: Fri, 02 Oct 1993 00:00:00 +0000 $n = $s = undef; $td->join; - my $eout = eval { - local $/; + is($?, 0, 'no error in exited process'); + my $eout = do { open my $fh, '<', $err or die "open $err failed: $!"; + local $/; <$fh>; }; - is($?, 0, 'no error in exited process'); unlike($eout, qr/wide/i, 'no Wide character warnings'); } -- cgit v1.2.3-24-ge0c7