mirror of
git://git.sv.gnu.org/coreutils.git
synced 2026-04-12 23:08:17 +02:00
Die if close fails.
This commit is contained in:
@@ -42,10 +42,10 @@ foreach $test_vector (@Test::t)
|
||||
|
||||
open (IN, ">$in") || die "$0: $in: $!\n";
|
||||
print IN $input;
|
||||
close (IN);
|
||||
close (IN) || die "$0: $in: $!\n";
|
||||
open (EXP, ">$exp_name") || die "$0: $in: $!\n";
|
||||
print EXP $expected;
|
||||
close (EXP);
|
||||
close (EXP) || die "$0: $exp_name: $!\n";
|
||||
my $err_output = "t$test_name.err";
|
||||
|
||||
my $cmd = "\$xx $flags \$srcdir/$in > $out 2> $err_output";
|
||||
|
||||
Reference in New Issue
Block a user