Skip 2 tests in t/op/filetest.t if t/TEST is a symlink.

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.

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";