cpan/Win32/t/CreateFile.t

   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);