[Catalyst-commits] r6417 - trunk/Catalyst-Action-DAV/litmus_test

[purge at dev.catalyst.perl.org]

Author: purge
Date: 2007-05-23 16:28:33 +0100 (Wed, 23 May 2007)
New Revision: 6417

Modified:
   trunk/Catalyst-Action-DAV/litmus_test/catlitmus.pl
Log:
undo changes to tests

Modified: trunk/Catalyst-Action-DAV/litmus_test/catlitmus.pl
===================================================================
--- trunk/Catalyst-Action-DAV/litmus_test/catlitmus.pl	2007-05-23 15:12:04 UTC (rev 6416)
+++ trunk/Catalyst-Action-DAV/litmus_test/catlitmus.pl	2007-05-23 15:28:33 UTC (rev 6417)
@@ -38,7 +38,7 @@
   
   CatLitmus->setup;
   
-  CatLitmus->run($port, undef);
+  CatLitmus->run($port, 'localhost');
 }
 
 # main code
@@ -48,4 +48,11 @@
 
 my $uri = join('/', "http://localhost:${port}", $path, '');
   
-run_litmus_server($port, $path);
+if (my $pid = fork()) {
+  sleep 5;
+  system("litmus", $uri);
+  kill 9, $pid;
+  exit 0;
+} else {
+  run_litmus_server($port, $path);
+}