$! might contain "unknown" if strerror(3) says so
Rafael Garcia-Suarez [Mon, 16 May 2005 08:47:28 +0000 (08:47 +0000)]
p4raw-id: //depot/perl@24475

t/op/mkdir.t

index 65a7d3a..6c71e68 100755 (executable)
@@ -17,11 +17,11 @@ $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'));