cpan/Win32/t/CreateFile.t

   1 use strict;\r
   2 use Test;\r
   3 use Win32;\r
   4 \r
   5 my $path = "testing-$$";\r
   6 rmdir($path)  if -d $path;\r
   7 unlink($path) if -f $path;\r
   8 \r
   9 plan tests => 15;\r
  10 \r
  11 ok(!-d $path);\r
  12 ok(!-f $path);\r
  13 \r
  14 ok(Win32::CreateDirectory($path));\r
  15 ok(-d $path);\r
  16 \r
  17 ok(!Win32::CreateDirectory($path));\r
  18 ok(!Win32::CreateFile($path));\r
  19 \r
  20 ok(rmdir($path));\r
  21 ok(!-d $path);\r
  22 \r
  23 ok(Win32::CreateFile($path));\r
  24 ok(-f $path);\r
  25 ok(-s $path, 0);\r
  26 \r
  27 ok(!Win32::CreateDirectory($path));\r
  28 ok(!Win32::CreateFile($path));\r
  29 \r
  30 ok(unlink($path));\r
  31 ok(!-f $path);\r