Check return values in the test programs run by syslfs.t and lfs.t
authorNicholas Clark <nick@ccl4.org>
Mon, 13 Dec 2010 16:08:38 +0000 (16:08 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 14 Dec 2010 16:59:53 +0000 (16:59 +0000)
Also fix a bug introduced in 1c25d394345c1b97, which accidentally neutered the
test program of t/op/lfs.t, causing it to attempt to open an empty file, and
hence do nothing and then always exit with 0.

ext/Fcntl/t/syslfs.t
t/op/lfs.t

index f0f1881..129ab97 100644 (file)
@@ -127,9 +127,10 @@ unless (-x $perl) {
 }
 my $r = system $perl, '-I../lib', '-e', <<'EOF';
 use Fcntl qw(/^O_/ /^SEEK_/);
-sysopen(BIG, "big", O_WRONLY|O_CREAT|O_TRUNC) or die $!;
-my $sysseek = sysseek(BIG, 5_000_000_000, SEEK_SET);
-my $syswrite = syswrite(BIG, "big");
+sysopen $big, "big", O_WRONLY|O_CREAT|O_TRUNC or die qq{sysopen big $!};
+sysseek $big, 5_000_000_000, SEEK_SET or die qq{sysseek big $!};
+syswrite $big, "big" or die qq{syswrite big $!};
+close $big or die qq{close big: $!};
 exit 0;
 EOF
 
index df9323f..49a5c29 100644 (file)
@@ -131,10 +131,11 @@ print "# we seem to have sparse files...\n";
 
 $ENV{LC_ALL} = "C";
 
-my $r = system '../perl', '-e', <<'EOF';
-open(BIG, ">$big0");
-seek(BIG, 5_000_000_000, 0);
-print BIG $big0;
+my $r = system '../perl', '-e', <<"EOF";
+open my \$big, '>', q{$big0} or die qq{open $big0: $!};
+seek \$big, 5_000_000_000, 0 or die qq{seek $big0: $!};
+print \$big "big" or die qq{print $big0: $!};
+close \$big or die qq{close $big0: $!};
 exit 0;
 EOF