5 my $path = "testing-$$";
6 rmdir($path) if -d $path;
7 unlink($path) if -f $path;
14 ok(Win32::CreateDirectory($path));
17 ok(!Win32::CreateDirectory($path));
18 ok(!Win32::CreateFile($path));
23 ok(Win32::CreateFile($path));
27 ok(!Win32::CreateDirectory($path));
28 ok(!Win32::CreateFile($path));