[poe-commits] poe/tests/30_loops/00_base comp_tcp_concurrent.pm,1.1,1.2

[<rc...@us...>]

Update of /cvsroot/poe/poe/tests/30_loops/00_base
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3560/tests/30_loops/00_base

Modified Files:
	comp_tcp_concurrent.pm 
Log Message:
These tests fail under Win32, so I'm skipping them.  It seems that
Win32 socket creation isn't as concurrent as we'd expect, and
deadlocks occur.


Index: comp_tcp_concurrent.pm
===================================================================
RCS file: /cvsroot/poe/poe/tests/30_loops/00_base/comp_tcp_concurrent.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** comp_tcp_concurrent.pm	7 Sep 2005 20:10:39 -0000	1.1
--- comp_tcp_concurrent.pm	22 Dec 2005 17:49:26 -0000	1.2
***************
*** 12,15 ****
--- 12,19 ----
      CORE::exit();
    }
+   if ($^O eq "MSWin32") {
+     print "1..0: Windows sockets aren't as concurrent as those on Unix\n";
+     CORE::exit();
+   }
  }
  
***************
*** 81,87 ****
              $acceptorN++;
              DEBUG and warn(
! 							"$$: acceptor server received input ($input) ",
! 							"acceptorN=$acceptorN"
! 						);
              $heap->{wheel}->put("echo: $input #$acceptorN");
              if($input eq "quit") {
--- 85,91 ----
              $acceptorN++;
              DEBUG and warn(
!               "$$: acceptor server received input ($input) ",
!               "acceptorN=$acceptorN"
!             );
              $heap->{wheel}->put("echo: $input #$acceptorN");
              if($input eq "quit") {
***************
*** 100,105 ****
              else {
                warn(
! 								"$$: acceptor server got $operation error $errnum: $errstr\n"
! 							);
              }
              delete $heap->{wheel};
--- 104,109 ----
              else {
                warn(
!                 "$$: acceptor server got $operation error $errnum: $errstr\n"
!               );
              }
              delete $heap->{wheel};
***************
*** 133,138 ****
        $callbackN++;
        DEBUG and warn(
! 				"$$: callback server received input ($input) callbackN=$callbackN"
! 			);
        if($input eq "quit") {
          DEBUG and warn("$$: callback_server quit");
--- 137,142 ----
        $callbackN++;
        DEBUG and warn(
!         "$$: callback server received input ($input) callbackN=$callbackN"
!       );
        if($input eq "quit") {
          DEBUG and warn("$$: callback_server quit");
***************
*** 157,162 ****
        if( $connected{callback} > 4 ) {
          fail(
! 					"callback server got $connected{callback} simultaneous connections"
! 				);
        }
        else {
--- 161,166 ----
        if( $connected{callback} > 4 ) {
          fail(
!           "callback server got $connected{callback} simultaneous connections"
!         );
        }
        else {
***************
*** 177,182 ****
  sub do_clients {
    foreach my $N (1..21) {
! 		DEBUG and warn "$$: SPAWN\n";
! 		two_clients($N);
    }
  }
--- 181,186 ----
  sub do_clients {
    foreach my $N (1..21) {
!     DEBUG and warn "$$: SPAWN\n";
!     two_clients($N);
    }
  }