diff --git a/t/filesystem.t b/t/filesystem.t index 3b20acd..b07688d 100644 --- a/t/filesystem.t +++ b/t/filesystem.t @@ -417,10 +417,17 @@ SKIP: { $file->spew("Hello World\n"); skip "symlink unavailable", 1 unless has_symlinks(); eval { symlink $file => $link }; - ok( $link->lstat->size, "lstat" ); - - is( $link->realpath, $file->realpath, "realpath resolves symlinks" ); - + if ($^O eq "MSWin32") { + ok( $link->lstat->size == 0, "lstat->size returns zero on Windows" ); + } + else { + ok( $link->lstat->size, "lstat->size returns nonzero" ); + } + SKIP: { + skip "realpath of symlink not working correctly on Windows for perl <= 5.37.5" + if $^O eq "MSWin32" and "$]" <= 5.037005; + is( $link->realpath, $file->realpath, "realpath resolves symlinks" ); + } ok $link->remove, 'remove symbolic link'; ok $file->remove;