mkdir.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
print "1..13\n";
BEGIN {
chdir 't' if -d 't';
}
# tests 3 and 7 rather naughtily expect English error messages
print (-d 'blurfl' ? "ok 4\n" : "not ok 4\n");
# trailing slashes will be removed before the system call to mkdir
# but we don't care for MacOS ...
print "ok $_\n" for 10..13;
} else {
print (-d 'blurfl' ? "ok 11\n" : "not ok 11\n");
print (!-d 'blurfl' ? "ok 13\n" : "not ok 13\n");
}