diff options
| author | James E Keenan <jkeenan@cpan.org> | 2017-09-14 12:38:13 -0400 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2017-09-18 10:43:01 +1000 |
| commit | b416949bcc78c663292630a0d778398af5dce5f9 (patch) | |
| tree | 7ae480de94c8794c7a78532c2b3f8e901686379f | |
| parent | c3fcee079e395988a7b112b8e5e7e4a654048cf7 (diff) | |
| download | perl-b416949bcc78c663292630a0d778398af5dce5f9.tar.gz | |
Revise tests to account for d_linkat.
| -rw-r--r-- | t/run/switches.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/run/switches.t b/t/run/switches.t index 651e45d1ab..ffc8fabc0d 100644 --- a/t/run/switches.t +++ b/t/run/switches.t @@ -468,6 +468,7 @@ __EOF__ skip "Not enough *at functions", 3 unless $Config{d_unlinkat} && $Config{d_renameat} && $Config{d_fchmodat} && ($Config{d_dirfd} || $Config{d_dir_dd_fd}) + && $Config{d_linkat} && $Config{ccflags} !~ /-DNO_USE_ATFUNCTIONS\b/; fresh_perl_is(<<'CODE', "ok\n", { }, @ARGV = ("inplacetmp/foo"); @@ -607,6 +608,7 @@ CODE skip "Testing without *at functions", 1 if $Config{d_unlinkat} && $Config{d_renameat} && $Config{d_fchmodat} && ($Config{d_dirfd} || $Config{d_dir_dd_fd}) + && $Config{d_linkat} && $Config{ccflags} !~ /-DNO_USE_ATFUNCTIONS\b/; fresh_perl_like(<<'CODE', qr/^Cannot complete in-place edit of inplacetmp\/foo: .* - line 5, <> line \d+\./, { }, @ARGV = ("inplacetmp/foo"); |