io_sock.t

Message-Id: <200303111837.NAA30438@bottesini.harvard.edu>

p4raw-id: //depot/perl@18918

diff --git a/README.qnx b/README.qnx
index affde51..792a17b 100644 (file)
--- 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 d91db55..33c11dd 100755 (executable)
--- 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";
+}