X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fstart_dev_server.t;h=6b54c2878a04a23cd09ef37daead549e6286455f;hb=2824ec8ddc74ffe46554fa224fed19cf459c7d35;hp=31fc26f3dcbb3e42d05494a46aa9430a71bebeb8;hpb=a24a5860184938cc4dd38535aeca06d98bc56fb1;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/start_dev_server.t b/t/start_dev_server.t
index 31fc26f..6b54c28 100644
--- a/t/start_dev_server.t
+++ b/t/start_dev_server.t
@@ -7,8 +7,14 @@ use FindBin qw/$Bin/;
 use File::Spec;
 use lib "$Bin/TestApp/lib";
 use TestApp;
+use Catalyst::Test 'TestApp', {default_host => 'default.com'};
+use Catalyst::Request;
 use Test::WWW::Mechanize;
-
+BEGIN { 
+    $ENV{CATALYST_ENGINE} ||= 'HTTP';
+    $ENV{CATALYST_SCRIPT_GEN} = 31;
+    require Catalyst::Engine::HTTP;
+} 
 my $dir = tempdir(); # CLEANUP => 1 );
 my $devnull = File::Spec->devnull;
 
@@ -19,7 +25,7 @@ my $childpid = fork();
 die "fork() error, cannot continue" unless defined($childpid);
 
 if ($childpid == 0) {
-  system("$^X $server_path -p $port > $devnull 2>&1");
+  system("$^X $server_path --listen $port > $devnull 2>&1");
   exit; # just for sure; we should never got here
 }