1#!./perl 2 3BEGIN { 4 chdir 't' if -d 't'; 5 @INC = '../lib'; 6 require './test.pl'; 7} 8 9plan tests => 13; 10 11use File::Path; 12rmtree('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 18ok(mkdir('blurfl',0777)); 19ok(!mkdir('blurfl',0777)); 20like($!, qr/cannot move|exist|denied|unknown/i); 21ok(-d 'blurfl'); 22ok(rmdir('blurfl')); 23ok(!rmdir('blurfl')); 24like($!, qr/cannot find|such|exist|not found|not a directory|unknown/i); 25ok(mkdir('blurfl')); 26ok(rmdir('blurfl')); 27 28SKIP: { 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