Lines Matching refs:tmpfile1

18 my $tmpfile1 = tempfile();
21 my $ok = symlink($tmpfile1, $tmpfile2);
29 ok(mkdir($tmpfile1), "make a directory");
30 ok(!-l $tmpfile1, "doesn't look like a symlink");
31 ok(symlink($tmpfile1, $tmpfile2), "and symlink to it");
35 is(readlink($tmpfile2), $tmpfile1, "readlink works");
36 check_stat($tmpfile1, $tmpfile2, "check directory and link stat are the same");
69 ok(!unlink($tmpfile1), "we can't unlink the original directory");
71 ok(rmdir($tmpfile1), "we can rmdir it");
73 ok(open(my $fh, ">", $tmpfile1), "make a file");
75 ok(symlink($tmpfile1, $tmpfile2), "link to it");
79 is(readlink($tmpfile2), $tmpfile1, "readlink works");
80 check_stat($tmpfile1, $tmpfile2, "check file and link stat are the same");
84 unlike($tmpfile1, qr([\\/]), "temp filename has no path");
85 ok(symlink("./$tmpfile1", $tmpfile2), "UNIX (/) relative link to the file");
89 ok(unlink($tmpfile1), "and the file");
92 ok(mkdir($tmpfile1), "make a directory");
97 if (system("mklink /j $tmpfile2 $tmpfile1") == 0) {
99     like(readlink($tmpfile2), qr/\Q$tmpfile1\E$/,
103 rmdir($tmpfile1);
109     ok(symlink($cwd, $tmpfile1),
111     ok(-d $tmpfile1, "the link looks like a directory");
112     unlink $tmpfile1;