This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
stop skipping ext/Fcntl/t/syslfs.t
authorDavid Mitchell <davem@iabyn.com>
Sat, 20 Feb 2010 21:01:11 +0000 (21:01 +0000)
committerDavid Mitchell <davem@iabyn.com>
Sun, 21 Feb 2010 23:39:03 +0000 (23:39 +0000)
Since the module reorganisation and now that tests run cd'ed to
ext/Fcntl, expecting to run ../perl no longer works.
Also, for the benefit of future generations, make the inability
to find perl a failure rather than a skip, with a more relevant error
message.

ext/Fcntl/t/syslfs.t

index 3417e44..7da5e21 100644 (file)
@@ -119,7 +119,12 @@ print "# we seem to have sparse files...\n";
 
 $ENV{LC_ALL} = "C";
 
-my $r = system '../perl', '-I../lib', '-e', <<'EOF';
+my $perl = '../../perl';
+unless (-x $perl) {
+    print "1..1\nnot ok 1 - can't find perl: expected $perl\n";
+    exit 0;
+}
+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);
@@ -127,6 +132,7 @@ my $syswrite = syswrite(BIG, "big");
 exit 0;
 EOF
 
+
 sysopen(BIG, "big", O_WRONLY|O_CREAT|O_TRUNC) or
        do { warn "sysopen 'big' failed: $!\n"; bye };
 my $sysseek = sysseek(BIG, 5_000_000_000, SEEK_SET);