diff options
Diffstat (limited to 'cpan/Win32/t/CreateFile.t')
-rw-r--r-- | cpan/Win32/t/CreateFile.t | 62 |
1 files changed, 31 insertions, 31 deletions
diff --git a/cpan/Win32/t/CreateFile.t b/cpan/Win32/t/CreateFile.t index ee1bf46daf..63ce31694c 100644 --- a/cpan/Win32/t/CreateFile.t +++ b/cpan/Win32/t/CreateFile.t @@ -1,31 +1,31 @@ -use strict; -use Test; -use Win32; - -my $path = "testing-$$"; -rmdir($path) if -d $path; -unlink($path) if -f $path; - -plan tests => 15; - -ok(!-d $path); -ok(!-f $path); - -ok(Win32::CreateDirectory($path)); -ok(-d $path); - -ok(!Win32::CreateDirectory($path)); -ok(!Win32::CreateFile($path)); - -ok(rmdir($path)); -ok(!-d $path); - -ok(Win32::CreateFile($path)); -ok(-f $path); -ok(-s $path, 0); - -ok(!Win32::CreateDirectory($path)); -ok(!Win32::CreateFile($path)); - -ok(unlink($path)); -ok(!-f $path); +use strict;
+use Test;
+use Win32;
+
+my $path = "testing-$$";
+rmdir($path) if -d $path;
+unlink($path) if -f $path;
+
+plan tests => 15;
+
+ok(!-d $path);
+ok(!-f $path);
+
+ok(Win32::CreateDirectory($path));
+ok(-d $path);
+
+ok(!Win32::CreateDirectory($path));
+ok(!Win32::CreateFile($path));
+
+ok(rmdir($path));
+ok(!-d $path);
+
+ok(Win32::CreateFile($path));
+ok(-f $path);
+ok(-s $path, 0);
+
+ok(!Win32::CreateDirectory($path));
+ok(!Win32::CreateFile($path));
+
+ok(unlink($path));
+ok(!-f $path);
|