[poe-commits] poe/tests/30_loops/00_base wheel_sf_unix.pm,1.3,1.4 wheel_tail.pm,1.3,1.4

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

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

Modified Files:
	wheel_sf_unix.pm wheel_tail.pm 
Log Message:
Work around Cygwin quirks in the tests.  1. syswrite() blocks on
non-blocking pipes, so I moved a test over to internet domain sockets.
2. close() on non-blocking sockets writes, so I changed a test to use
shutdown() instead.  3. Files appear to be opened for exclusive access
by default, so the Wheel::FollowTail tests can't run.  This closes
rt.cpan.org tickets 11553 and 11053.


Index: wheel_sf_unix.pm
===================================================================
RCS file: /cvsroot/poe/poe/tests/30_loops/00_base/wheel_sf_unix.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** wheel_sf_unix.pm	28 Jun 2005 06:18:21 -0000	1.3
--- wheel_sf_unix.pm	30 Jun 2005 15:02:16 -0000	1.4
***************
*** 24,27 ****
--- 24,30 ----
      $error = "$^O does not support UNIX sockets";
    }
+   elsif ($^O eq "cygwin") {
+     $error = "UNIX sockets on $^O always block";
+   }
  
    if ($error) {

Index: wheel_tail.pm
===================================================================
RCS file: /cvsroot/poe/poe/tests/30_loops/00_base/wheel_tail.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** wheel_tail.pm	28 Jun 2005 06:18:21 -0000	1.3
--- wheel_tail.pm	30 Jun 2005 15:02:16 -0000	1.4
***************
*** 19,22 ****
--- 19,26 ----
  }
  
+ if ($^O eq "cygwin") {
+   plan skip_all => "Cygwin file open/locking semantics thwart this test.";
+ }
+ 
  plan tests => 10;