[perl5.git] / t / op / mkdir.t

#!./perl

# $RCSfile: mkdir.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:06 $

print "1..7\n";

if ($^O eq 'VMS') { # May as well test the library too
  unshift @INC, '../lib';
  require File::Path;
  File::Path::rmtree('blurfl');
}
else {
  $^O eq 'MSWin32' ? `del /s /q blurfl 2>&1` : `rm -rf blurfl`;
}

# tests 3 and 7 rather naughtily expect English error messages
$ENV{'LC_ALL'} = 'C';
$ENV{LANGUAGE} = 'C'; # GNU locale extension

print (mkdir('blurfl',0777) ? "ok 1\n" : "not ok 1\n");
print (mkdir('blurfl',0777) ? "not ok 2\n" : "ok 2\n");
print ($! =~ /exist|denied/ ? "ok 3\n" : "# $!\nnot ok 3\n");
print (-d 'blurfl' ? "ok 4\n" : "not ok 4\n");
print (rmdir('blurfl') ? "ok 5\n" : "not ok 5\n");
print (rmdir('blurfl') ? "not ok 6\n" : "ok 6\n");
print ($! =~ /such|exist|not found/i ? "ok 7\n" : "not ok 7\n");
Commit	Line	Data
a687059c LW	1	#!./perl
a687059c LW	2
79072805	3	# $RCSfile: mkdir.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:06 $
a687059c LW	4
	5	print "1..7\n";
	6
1f47e8e2 CB	7	if ($^O eq 'VMS') { # May as well test the library too
	8	unshift @INC, '../lib';
	9	require File::Path;
	10	File::Path::rmtree('blurfl');
	11	}
	12	else {
	13	$^O eq 'MSWin32' ? `del /s /q blurfl 2>&1` : `rm -rf blurfl`;
	14	}
a687059c	15
3458556d J	16	# tests 3 and 7 rather naughtily expect English error messages
3458556d J	17	$ENV{'LC_ALL'} = 'C';
b598356e	18	$ENV{LANGUAGE} = 'C'; # GNU locale extension
3458556d	19
79a0689e LW	20	print (mkdir('blurfl',0777) ? "ok 1\n" : "not ok 1\n");
79a0689e LW	21	print (mkdir('blurfl',0777) ? "not ok 2\n" : "ok 2\n");
3e3baf6d	22	print ($! =~ /exist\|denied/ ? "ok 3\n" : "# $!\nnot ok 3\n");
a687059c LW	23	print (-d 'blurfl' ? "ok 4\n" : "not ok 4\n");
	24	print (rmdir('blurfl') ? "ok 5\n" : "not ok 5\n");
	25	print (rmdir('blurfl') ? "not ok 6\n" : "ok 6\n");
61ae2fbf	26	print ($! =~ /such\|exist\|not found/i ? "ok 7\n" : "not ok 7\n");