From: diegok Date: Fri, 7 May 2010 00:27:19 +0000 (+0200) Subject: make restart test a bit less buggy (but still slow and buggy) X-Git-Tag: 1.28~8 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=56828b49d31abb8c1344b66b144e35f34cb2167e;hp=4dc075f9d02d1bbffdf0fd74a7da287d24d74af6;p=catagits%2FCatalyst-Devel.git make restart test a bit less buggy (but still slow and buggy) --- diff --git a/t/optional_http-server-restart.t b/t/optional_http-server-restart.t index ecfa842..815b17e 100644 --- a/t/optional_http-server-restart.t +++ b/t/optional_http-server-restart.t @@ -121,7 +121,7 @@ for ( 1 .. 5 ) { # we need different options so we have to rebuild most # of the testing environment -kill 'KILL', $pid or die "Cannot kill $pid: $!"; +kill 9, $pid or die "Cannot send kill signal to $pid: $!"; close $server or die "Cannot close handle to server process: $!"; wait; @@ -166,7 +166,7 @@ for ( 1 .. 5 ) { 'Non-error restart with multiple watched dirs' ); } -kill 'KILL', $pid; +kill 9, $pid; close $server; wait; @@ -185,8 +185,8 @@ sub start_server { my $pid = open3( undef, $server, undef, $^X, "-I$FindBin::Bin/../lib", - "$FindBin::Bin/../t/tmp/TestApp/script/testapp_server.pl", '-port', - $port, '-restart' + "$FindBin::Bin/../t/tmp/TestApp/script/testapp_server.pl", '--port', + $port, '--restart' ) or die "Unable to spawn standalone HTTP server: $!"; # switch to non-blocking reads so we can fail gracefully instead