diff options
| author | David Mitchell <davem@iabyn.com> | 2010-02-20 21:01:11 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2010-02-21 23:39:03 +0000 |
| commit | 3778d1b0a501c83cfa3003b5667224e2cd76288c (patch) | |
| tree | 4be536128c09d7215c161c740544340f8bd4dc29 /ext/Fcntl | |
| parent | 35f3bf0abf61ebcb5fa1b026d4803b0cef3d574a (diff) | |
| download | perl-3778d1b0a501c83cfa3003b5667224e2cd76288c.tar.gz | |
stop skipping ext/Fcntl/t/syslfs.t
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.
Diffstat (limited to 'ext/Fcntl')
| -rw-r--r-- | ext/Fcntl/t/syslfs.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/ext/Fcntl/t/syslfs.t b/ext/Fcntl/t/syslfs.t index 3417e443e4..7da5e21abe 100644 --- a/ext/Fcntl/t/syslfs.t +++ b/ext/Fcntl/t/syslfs.t @@ -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); |