[perl #21442] only check link() error codes where link() works

Skip the tests on non-NTFS.

diff --git a/t/win32/fs.t b/t/win32/fs.t
index 35d3617..b770311 100644 (file)
--- a/t/win32/fs.t
+++ b/t/win32/fs.t
@@ -8,6 +8,11 @@ BEGIN {
     die $@ if $@ and !is_miniperl();
 }
 
+my $has_link = Win32::FsType() eq 'NTFS';
+
+$has_link
+  or skip_all("link() only works on NTFS");
+
 plan tests => 4;
 
 my $tmpfile1 = tempfile();