diff options
| author | Matt Kraai <kraai@ftbfs.org> | 2007-11-27 03:00:19 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-11-28 07:14:07 +0000 |
| commit | 9487c2fc1a7c5851aa2ef68b55b8b1db0cffa826 (patch) | |
| tree | b42e92cbbeccf31a84ecccfb03e857e895e515c7 /ext/POSIX | |
| parent | 99d59c4d6ec779a042ed49eb48c7c7aa214343c2 (diff) | |
| download | perl-9487c2fc1a7c5851aa2ef68b55b8b1db0cffa826.tar.gz | |
Re: fpathconf test failures on QNX
Message-ID: <20071127190019.GA6319@ftbfs.org>
p4raw-id: //depot/perl@32524
Diffstat (limited to 'ext/POSIX')
| -rw-r--r-- | ext/POSIX/t/sysconf.t | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/ext/POSIX/t/sysconf.t b/ext/POSIX/t/sysconf.t index d908d2da7e..a1326a1da2 100644 --- a/ext/POSIX/t/sysconf.t +++ b/ext/POSIX/t/sysconf.t @@ -53,18 +53,24 @@ $curdir = VMS::Filespec::fileify($curdir) if $^O eq 'VMS'; my $r; +my $TTY = "/dev/tty"; + sub _check_and_report { my ($eval_status, $return_val, $description) = @_; my $success = defined($return_val) || $! == 0; is( $eval_status, '', $description ); - ok( $success, "\tchecking that the returned value is defined (" - . (defined($return_val) ? "yes, it's $return_val)" : "it isn't)" - . " or that errno is clear (" - . (!($!+0) ? "it is)" : "it isn't, it's $!)")) - ); + SKIP: { + skip "terminal constants set errno on QNX", 1 + if $^O eq 'nto' and $description =~ $TTY; + ok( $success, "\tchecking that the returned value is defined (" + . (defined($return_val) ? "yes, it's $return_val)" : "it isn't)" + . " or that errno is clear (" + . (!($!+0) ? "it is)" : "it isn't, it's $!)")) + ); + } SKIP: { skip "constant not implemented on $^O or no limit in effect", 1 - if $success && !defined($return_val); + if !defined($return_val); ok( looks_like_number($return_val), "\tchecking that the returned value looks like a number" ); } } @@ -91,8 +97,6 @@ for my $constant (@path_consts) { } SKIP: { - my $TTY = "/dev/tty"; - my $n = 2 * 3 * @path_consts_terminal; -c $TTY |