defined @array and defined %hash need no warnings 'deprecated';

[p5sagit/p5-mst-13.2.git] / t / op / mkdir.t

diff --git a/t/op/mkdir.t b/t/op/mkdir.t
old mode 100755 (executable)
new mode 100644 (file)
index 65a7d3a..bd0d1b4
--- a/t/op/mkdir.t
+++ b/t/op/mkdir.t
@@ -17,23 +17,19 @@ $ENV{LANGUAGE} = 'C'; # GNU locale extension
 
 ok(mkdir('blurfl',0777));
 ok(!mkdir('blurfl',0777));
-like($!, qr/cannot move|exist|denied/);
+like($!, qr/cannot move|exist|denied|unknown/i);
 ok(-d 'blurfl');
 ok(rmdir('blurfl'));
 ok(!rmdir('blurfl'));
-like($!, qr/cannot find|such|exist|not found|not a directory/i);
+like($!, qr/cannot find|such|exist|not found|not a directory|unknown/i);
 ok(mkdir('blurfl'));
 ok(rmdir('blurfl'));
 
-SKIP: {
-    # trailing slashes will be removed before the system call to mkdir
-    # but we don't care for MacOS ...
-    skip("MacOS", 4) if $^O eq 'MacOS';
-    ok(mkdir('blurfl///'));
-    ok(-d 'blurfl');
-    ok(rmdir('blurfl///'));
-    ok(!-d 'blurfl');
-}
+# trailing slashes will be removed before the system call to mkdir
+ok(mkdir('blurfl///'));
+ok(-d 'blurfl');
+ok(rmdir('blurfl///'));
+ok(!-d 'blurfl');
 
 # test default argument