tests are expected to fail if dirfd () does not exist

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

diff --git a/t/op/cproto.t b/t/op/cproto.t
index fce11e0..d37118e 100644 (file)
--- a/t/op/cproto.t
+++ b/t/op/cproto.t
@@ -6,7 +6,9 @@ BEGIN {
     @INC = '../lib';
 }
 
-use Test::More tests => 234;
+BEGIN { require './test.pl'; }
+plan tests => 234;
+
 while (<DATA>) {
     chomp;
     my ($keyword, $proto) = split;
@@ -135,7 +137,7 @@ lstat (*)
 lt ($$)
 m undef
 map undef
-mkdir ($;$)
+mkdir (;$$)
 msgctl ($$$)
 msgget ($$)
 msgrcv ($$$$$)
@@ -195,7 +197,7 @@ send (*$$;$)
 setgrent ()
 sethostent ($)
 setnetent ($)
-setpgrp undef
+setpgrp (;$$)
 setpriority ($$$)
 setprotoent ($)
 setpwent ()