develooper Front page | perl.perl5.porters | Postings from March 2003

[PATCH] io_sock.t

Thread Next
From:
Norton Allen
Date:
March 11, 2003 10:24
Subject:
[PATCH] io_sock.t
Message ID:
200303111837.NAA30438@bottesini.harvard.edu
This patch updates README.qnx and patches io_sock.t to
extend an earlier override to a new test.

 -Norton Allen


*** ../ORIG/perl-18872/README.qnx	Thu Jan 23 09:20:34 2003
--- perl-18872/README.qnx	Tue Mar 11 12:54:40 2003
***************
*** 14,25 ****
    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.
  
! Under QNX 6.1.0 there are still a few tests which fail.
! See below and hints/qnx.sh for more information.
  
  =head2 Required Software for Compiling Perl on QNX4
  
  As with many unix ports, this one depends on a few "standard"
--- 14,28 ----
    Watcom 10.6 with Beta/970211.wcc.update.tar.F
    socket3r.lib Nov21 1996.
  
! 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.
+ 
  =head2 Required Software for Compiling Perl on QNX4
  
  As with many unix ports, this one depends on a few "standard"
***************
*** 92,102 ****
  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
  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.
  
  =head2 QNX auxiliary files
  
--- 95,107 ----
  PATH. The PATH test is triggered because cwd calls
  `fullpath -t`.
  
! 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.
! 
! t/io/tell.t: Subtest 27 is failing. We are still investigating.
  
  =head2 QNX auxiliary files
  
*** ../ORIG/perl-18872/ext/IO/lib/IO/t/io_sock.t	Wed Feb 26 14:21:31 2003
--- perl-18872/ext/IO/lib/IO/t/io_sock.t	Tue Mar 11 12:41:16 2003
***************
*** 205,213 ****
  print "ok 13\n";
  
  if ( $^O eq 'qnx' ) {
!   # QNX library bug: Can set non-blocking on socket, but
    # cannot return that status.
!   print "ok 14 # skipped\n";
  } else {
    $server->blocking(0);
    print "not " if $server->blocking;
--- 205,213 ----
  print "ok 13\n";
  
  if ( $^O eq 'qnx' ) {
!   # QNX4 library bug: Can set non-blocking on socket, but
    # cannot return that status.
!   print "ok 14 # skipped on QNX4\n";
  } else {
    $server->blocking(0);
    print "not " if $server->blocking;
***************
*** 352,357 ****
      or print "not ";
  print "ok 21\n";
  
! my $status = $sock->blocking;
! print "not " unless defined $status && !$status;
! print "ok 22\n";
--- 352,363 ----
      or print "not ";
  print "ok 21\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";
! }

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About