diff options
| author | Artur Bergman <sky@nanisky.com> | 2002-02-05 11:20:21 +0000 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2002-02-05 11:20:21 +0000 |
| commit | 4e0f6e8c51a1578c6008613692eebbd26d0be737 (patch) | |
| tree | 120c98acd59dc7f3f2e23701a85d72341fccb1f8 | |
| parent | 4f8ddd771cda27533f4680b572d765b063e03e11 (diff) | |
| download | perl-4e0f6e8c51a1578c6008613692eebbd26d0be737.tar.gz | |
Change to check if _POSIX_OPEN_MAX is 16 or 20, however the entire test is kind of questionable since we are testing POSIX compliance...
p4raw-id: //depot/perl@14558
| -rw-r--r-- | ext/POSIX/t/posix.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/POSIX/t/posix.t b/ext/POSIX/t/posix.t index 49357a6641..3e00af5d14 100644 --- a/ext/POSIX/t/posix.t +++ b/ext/POSIX/t/posix.t @@ -91,7 +91,8 @@ SKIP: { skip("_POSIX_OPEN_MAX is inaccurate on MPE", 1) if $Is_MPE; skip("_POSIX_OPEN_MAX undefined ($fds[1])", 1) unless &_POSIX_OPEN_MAX; - ok( &_POSIX_OPEN_MAX > $fds[1], '_POSIX_OPEN_MAX' ); + ok( &_POSIX_OPEN_MAX == 16 || &_POSIX_OPEN_MAX == 20, "The two allowed values according to susv2 and susv3" ); + } my $pat; |