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

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);
Commit	Line	Data
c3c06741 JD	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);