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 # trailing slashes will be removed before the system call to mkdir
  29 ok(mkdir('blurfl///'));
  30 ok(-d 'blurfl');
  31 ok(rmdir('blurfl///'));
  32 ok(!-d 'blurfl');
  33
  34 # test default argument
  35
  36 $_ = 'blurfl';
  37 ok(mkdir);
  38 ok(-d);
  39 ok(rmdir);
  40 ok(!-d);
  41 $_ = 'lfrulb';
  42
  43 {
  44     my $_ = 'blurfl';
  45     ok(mkdir);
  46     ok(-d);
  47     ok(-d 'blurfl');
  48     ok(!-d 'lfrulb');
  49     ok(rmdir);
  50 }