Thread: [poe-commits] poe/tests/30_loops/00_base comp_tcp_concurrent.pm,1.1,1.2
Brought to you by:
rcaputo
From: <rc...@us...> - 2005-12-22 17:49:38
|
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); } } |