projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a808a03
)
Skip 2 tests in t/op/filetest.t if t/TEST is a symlink.
author
Nicholas Clark
<nick@ccl4.org>
Tue, 20 Sep 2011 13:11:46 +0000
(15:11 +0200)
committer
Nicholas Clark
<nick@ccl4.org>
Tue, 20 Sep 2011 13:11:46 +0000
(15:11 +0200)
t/TEST is usually a regular file, but not always. For example, if one is
building using a symlink forest (eg ./Configure -Dmksymlinks) then it will
be a symlink.
t/op/filetest.t
patch
|
blob
|
history
diff --git
a/t/op/filetest.t
b/t/op/filetest.t
index
f7948d0
..
d013cce
100644
(file)
--- a/
t/op/filetest.t
+++ b/
t/op/filetest.t
@@
-104,6
+104,7
@@
like $@, qr/^The stat preceding -l _ wasn't an lstat at /,
SKIP: {
use Perl::OSType 'os_type';
if (os_type ne 'Unix') { skip "Not Unix", 2 }
+ if (-l "TEST") { skip "TEST is a symlink", 2 }
chomp(my $ln = `which ln`);
if ( ! -e $ln ) { skip "No ln" , 2 }
lstat "TEST";