Too slow
[catagits/Catalyst-Runtime.git] / t / start_dev_server.t
index 31fc26f..6b54c28 100644 (file)
@@ -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
 }