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 63ce31694c..ee1bf46daf 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); |