Small optimisations, by Brandon Black
[p5sagit/p5-mst-13.2.git] / t / op / mkdir.t
1 #!./perl -w
2
3 BEGIN {
4     chdir 't' if -d 't';
5     @INC = '../lib';
6     require './test.pl';
7 }
8
9 plan tests => 22;
10
11 use File::Path;
12 rmtree('blurfl');
13
14 # tests 3 and 7 rather naughtily expect English error messages
15 $ENV{'LC_ALL'} = 'C';
16 $ENV{LANGUAGE} = 'C'; # GNU locale extension
17
18 ok(mkdir('blurfl',0777));
19 ok(!mkdir('blurfl',0777));
20 like($!, qr/cannot move|exist|denied|unknown/i);
21 ok(-d 'blurfl');
22 ok(rmdir('blurfl'));
23 ok(!rmdir('blurfl'));
24 like($!, qr/cannot find|such|exist|not found|not a directory|unknown/i);
25 ok(mkdir('blurfl'));
26 ok(rmdir('blurfl'));
27
28 SKIP: {
29     # trailing slashes will be removed before the system call to mkdir
30     # but we don't care for MacOS ...
31     skip("MacOS", 4) if $^O eq 'MacOS';
32     ok(mkdir('blurfl///'));
33     ok(-d 'blurfl');
34     ok(rmdir('blurfl///'));
35     ok(!-d 'blurfl');
36 }
37
38 # test default argument
39
40 $_ = 'blurfl';
41 ok(mkdir);
42 ok(-d);
43 ok(rmdir);
44 ok(!-d);
45 $_ = 'lfrulb';
46
47 {
48     my $_ = 'blurfl';
49     ok(mkdir);
50     ok(-d);
51     ok(-d 'blurfl');
52     ok(!-d 'lfrulb');
53     ok(rmdir);
54 }