#!./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");
}