projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5cadb3f
)
tests are expected to fail if dirfd () does not exist
author
H.Merijn Brand
<h.m.brand@xs4all.nl>
Mon, 18 Jul 2005 11:02:01 +0000
(11:02 +0000)
committer
H.Merijn Brand
<h.m.brand@xs4all.nl>
Mon, 18 Jul 2005 11:02:01 +0000
(11:02 +0000)
make the tests to expect failures in that case
p4raw-id: //depot/perl@25170
t/op/chdir.t
patch
|
blob
|
history
diff --git
a/t/op/chdir.t
b/t/op/chdir.t
index
14024a6
..
3a00df2
100644
(file)
--- a/
t/op/chdir.t
+++ b/
t/op/chdir.t
@@
-48,7
+48,14
@@
SKIP: {
ok(open(my $fh, "<", "op"), "open op");
ok(chdir($fh), "fchdir op");
ok(-f "chdir.t", "verify that we are in op");
- ok(chdir($dh), "fchdir back");
+ if (($Config{d_dirfd} || "") eq "define") {
+ ok(chdir($dh), "fchdir back");
+ }
+ else {
+ eval { chdir($dh); };
+ like($@, qr/^The dirfd function is unimplemented at/, "dirfd is unimplemented");
+ chdir "..";
+ }
ok(-d "op", "verify that we are back");
}