[Jifty-commit] r1958 - jifty/trunk/lib/Jifty

[jifty-commit at lists.jifty.org]

Author: ishigaki
Date: Wed Sep 13 14:27:45 2006
New Revision: 1958

Modified:
   jifty/trunk/lib/Jifty/TestServer.pm

Log:
skip all the live tests (that call 'start_ok') on Win32

Modified: jifty/trunk/lib/Jifty/TestServer.pm
==============================================================================
--- jifty/trunk/lib/Jifty/TestServer.pm	(original)
+++ jifty/trunk/lib/Jifty/TestServer.pm	Wed Sep 13 14:27:45 2006
@@ -29,6 +29,24 @@
     my $text = shift;
     $text = 'started server' unless defined $text;
 
+    if ($^O eq 'MSWin32') {
+        # dirty hack until Test::Builder->skip_rest comes true
+
+        my $why = "live test doesn't work on Win32 at the moment";
+
+        $Tester->skip($why);
+
+        unless ($Tester->{No_Plan}) {
+            for (my $ct = $Tester->{Curr_Test};
+                    $ct < $Tester->{Expected_Tests};
+                    $ct++
+            ) {
+                $Tester->skip($why); # skip rest of the test
+            }
+        }
+        exit(0);
+    }
+
     if (my $pid = fork()) {
         # We are expecting a USR1 from the child Jifty::Server
         # after it's ready to listen.