t/win32/stat.t

303     # $tmpfile4 -> $tmpfile1/file1 -> ../$tmpfile2 -> abspath($tmpfile3)
305     my ($tmpfile3, $tmpfile4) = (tempfile(), tempfile());
308     if (system(qq(mklink $tmpfile4 $tmpfile1\\file1)) == 0
311         ok(-l $tmpfile4, "yes, $tmpfile4 is a symlink");
312         ok(!-e $tmpfile4, "but we can't stat it");
316         ok(-f $tmpfile4, "now $tmpfile4 leads to a file");
323             ok(!-f $tmpfile4, "$tmpfile4 no longer leads to a file");
324             ok(-S $tmpfile4, "now $tmpfile4 leads to a socket");
330     unlink $tmpfile2, $tmpfile4, "$tmpfile1/file1";