13 File::Path::rmtree('blurfl') if -d 'blurfl';
16 diag("$0 may fail if its temporary directory remains from a previous run");
17 diag("Attempted to load File::Path to delete directory t/blurfl - error was\n$@");
18 diag("\nIf you have problems, please manually delete t/blurfl");
21 # tests 3 and 7 rather naughtily expect English error messages
23 $ENV{LANGUAGE} = 'C'; # GNU locale extension
27 if (is_miniperl && !eval { local $!; require Errno }) {
28 skip "Errno not built yet", 1;
34 ok(mkdir('blurfl',0777));
35 ok(!mkdir('blurfl',0777));
36 errno_or_skip('$!{EEXIST} || $! =~ /cannot move|exist|denied|unknown/i');
42 || $! =~ /cannot find|such|exist|not found|not a directory|unknown/i
47 # trailing slashes will be removed before the system call to mkdir
48 ok(mkdir('blurfl///'));
50 ok(rmdir('blurfl///'));
53 # test default argument