Commit | Line | Data |
34f7f30d |
1 | use strict; |
2 | use Test; |
3 | use Win32; |
4 | |
5 | my $path = "testing-$$"; |
6 | rmdir($path) if -d $path; |
7 | unlink($path) if -f $path; |
8 | |
9 | plan tests => 15; |
10 | |
11 | ok(!-d $path); |
12 | ok(!-f $path); |
13 | |
14 | ok(Win32::CreateDirectory($path)); |
15 | ok(-d $path); |
16 | |
17 | ok(!Win32::CreateDirectory($path)); |
18 | ok(!Win32::CreateFile($path)); |
19 | |
20 | ok(rmdir($path)); |
21 | ok(!-d $path); |
22 | |
23 | ok(Win32::CreateFile($path)); |
24 | ok(-f $path); |
25 | ok(-s $path, 0); |
26 | |
27 | ok(!Win32::CreateDirectory($path)); |
28 | ok(!Win32::CreateFile($path)); |
29 | |
30 | ok(unlink($path)); |
31 | ok(!-f $path); |