13 File::Path::rmtree('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
25 ok(mkdir('blurfl',0777));
26 ok(!mkdir('blurfl',0777));
27 ok($!{EEXIST} || $! =~ /cannot move|exist|denied|unknown/i);
31 ok($!{ENOENT} || $! =~ /cannot find|such|exist|not found|not a directory|unknown/i);
35 # trailing slashes will be removed before the system call to mkdir
36 ok(mkdir('blurfl///'));
38 ok(rmdir('blurfl///'));
41 # test default argument
51 no warnings 'experimental::lexical_topic';