Move Win32 from ext/ to cpan/

[perl5.git] / cpan / Win32 / t / CreateFile.t

diff --git a/cpan/Win32/t/CreateFile.t b/cpan/Win32/t/CreateFile.t
new file mode 100644 (file)
index 0000000..ee1bf46
--- /dev/null
+++ b/cpan/Win32/t/CreateFile.t
@@ -0,0 +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);