X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Foptional_http-server-restart.t;h=39f475a51ded6d125cf4d2cb5ca5d1ac6d77c317;hb=3932d8818a3c5112315a8757b6db7a3678755f7e;hp=1e163ba6652a711b1276403e6b79db0645b4cb8e;hpb=191cf700489a3ee8facc35c71045cbe175519dc6;p=catagits%2FCatalyst-Runtime.git diff --git a/t/optional_http-server-restart.t b/t/optional_http-server-restart.t index 1e163ba..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 ) {