X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Foptional_http-server-restart.t;h=39f475a51ded6d125cf4d2cb5ca5d1ac6d77c317;hb=aa2e6d9e59b1373b13fe7c37725f3fab3b8a1e92;hp=cb18ce8e658335f725e45faa729e52744d862743;hpb=868a7cca6687d5a4df03ad4f70f60fc124033f62;p=catagits%2FCatalyst-Runtime.git diff --git a/t/optional_http-server-restart.t b/t/optional_http-server-restart.t index cb18ce8..39f475a 100644 --- a/t/optional_http-server-restart.t +++ b/t/optional_http-server-restart.t @@ -3,16 +3,20 @@ use strict; use warnings; +use Test::More; +BEGIN { + plan skip_all => 'set TEST_HTTP to enable this test' unless $ENV{TEST_HTTP}; +} + use File::Path; use FindBin; use LWP::Simple; use IO::Socket; use IPC::Open3; -use Test::More; +use Catalyst::Engine::HTTP::Restarter::Watcher; use Time::HiRes qw/sleep/; eval "use Catalyst::Devel 1.0;"; -plan skip_all => 'set TEST_HTTP to enable this test' unless $ENV{TEST_HTTP}; plan skip_all => 'Catalyst::Devel required' if $@; plan skip_all => 'Catalyst::Devel >= 1.04 required' if $Catalyst::Devel::VERSION <= 1.03; eval "use File::Copy::Recursive"; @@ -62,9 +66,12 @@ while ( check_port( 'localhost', $port ) != 1 ) { my @files = ( "$FindBin::Bin/../t/tmp/TestApp/lib/TestApp.pm", "$FindBin::Bin/../t/tmp/TestApp/lib/TestApp/Controller/Action/Begin.pm", -"$FindBin::Bin/../t/tmp/TestApp/lib/TestApp/Controller/Engine/Request/URI.pm", + "$FindBin::Bin/../t/tmp/TestApp/lib/TestApp/Controller/Immutable.pm", ); +push(@files, "$FindBin::Bin/../t/tmp/TestApp/lib/TestApp/Controller/Immutable/HardToReload.pm") + if Catalyst::Engine::HTTP::Restarter::Watcher::DETECT_PACKAGE_COMPILATION(); + # change some files and make sure the server restarts itself NON_ERROR_RESTART: for ( 1 .. 20 ) { @@ -204,7 +211,7 @@ for ( 1 .. 20 ) { sleep 0.1; if ( $count++ > 100 ) { fail "Server restarted"; - SKIP_NO_RESTART_2: { + SKIP: { skip "Server didn't restart, no sense in checking response", 1; } next MULTI_DIR_RESTART;