diff options
author | Norton T. Allen <allen@huarp.harvard.edu> | 2003-03-11 08:37:36 -0500 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-11 17:32:23 +0000 |
commit | 6dea66918087e590d3c83e3571f2b8c019f8f7ce (patch) | |
tree | cc90250889798e5baebc189a838c4bf9dbb5f4b9 | |
parent | 88d107940a332197a7297ee2205aa2e32c212c76 (diff) | |
download | perl-6dea66918087e590d3c83e3571f2b8c019f8f7ce.tar.gz |
io_sock.t
Message-Id: <200303111837.NAA30438@bottesini.harvard.edu>
p4raw-id: //depot/perl@18918
-rw-r--r-- | README.qnx | 17 | ||||
-rwxr-xr-x | ext/IO/lib/IO/t/io_sock.t | 16 |
2 files changed, 22 insertions, 11 deletions
diff --git a/README.qnx b/README.qnx index affde51120..792a17b251 100644 --- a/README.qnx +++ b/README.qnx @@ -14,8 +14,11 @@ As of perl5.7.2 all tests pass under: Watcom 10.6 with Beta/970211.wcc.update.tar.F socket3r.lib Nov21 1996. -Some tests may complain under known circumstances. See -below and hints/qnx.sh for more information. +As of perl5.8.1 there is at least one test still failing. + +Some tests may complain under known circumstances. + +See below and hints/qnx.sh for more information. Under QNX 6.1.0 there are still a few tests which fail. See below and hints/qnx.sh for more information. @@ -92,11 +95,13 @@ lib/File/Find/taint.t will complain if '.' is in your PATH. The PATH test is triggered because cwd calls `fullpath -t`. -ext/IO/lib/IO/t/io_sock.t: Subtest 14 is skipped due to +ext/IO/lib/IO/t/io_sock.t: Subtests 14 and 22 are skipped due to the fact that the functionality to read back the non-blocking -status of a socket is not implemented in QNX's TCP/IP. This -has been reported to QNX and it may work with later versions -of TCP/IP. +status of a socket is not implemented in QNX's TCP/IP. This has +been reported to QNX and it may work with later versions of +TCP/IP. + +t/io/tell.t: Subtest 27 is failing. We are still investigating. =head2 QNX auxiliary files diff --git a/ext/IO/lib/IO/t/io_sock.t b/ext/IO/lib/IO/t/io_sock.t index d91db55eca..33c11ddc8b 100755 --- a/ext/IO/lib/IO/t/io_sock.t +++ b/ext/IO/lib/IO/t/io_sock.t @@ -205,9 +205,9 @@ print "not " unless $server->blocking; print "ok 13\n"; if ( $^O eq 'qnx' ) { - # QNX library bug: Can set non-blocking on socket, but + # QNX4 library bug: Can set non-blocking on socket, but # cannot return that status. - print "ok 14 # skipped\n"; + print "ok 14 # skipped on QNX4\n"; } else { $server->blocking(0); print "not " if $server->blocking; @@ -352,6 +352,12 @@ $sock = IO::Socket::INET->new(Blocking => 0) or print "not "; print "ok 21\n"; -my $status = $sock->blocking; -print "not " unless defined $status && !$status; -print "ok 22\n"; +if ( $^O eq 'qnx' ) { + print "ok 22 # skipped on QNX4\n"; + # QNX4 library bug: Can set non-blocking on socket, but + # cannot return that status. +} else { + my $status = $sock->blocking; + print "not " unless defined $status && !$status; + print "ok 22\n"; +} |