make most http_server tests run
Marcus Ramberg [Thu, 6 Jul 2006 22:08:03 +0000 (22:08 +0000)]
t/optional_http-server-restart.t
t/optional_http-server.t

index b20944c..008e0b2 100644 (file)
@@ -11,10 +11,12 @@ use LWP::Simple;
 use IO::Socket;\r
 use Test::More;\r
 use Time::HiRes qw/sleep/;\r
-eval "use File::Copy::Recursive";\r
+eval "use Catalyst::Devel 1.0;";\r
 \r
 plan skip_all => 'set TEST_HTTP to enable this test' unless $ENV{TEST_HTTP};\r
-plan skip_all => 'File::Copy::Recursive required' if $@;\r
+plan skip_all => 'Catalyst::Devel required' if $@;\r
+\r
+use File::Copy::Recursive;\r
 \r
 plan tests => 40;\r
 \r
index 8219f3f..5516b66 100644 (file)
@@ -7,12 +7,14 @@ use File::Path;
 use FindBin;
 use IO::Socket;
 use Test::More;
-eval "use File::Copy::Recursive";
 
 plan skip_all => 'set TEST_HTTP to enable this test' unless $ENV{TEST_HTTP};
-plan skip_all => 'File::Copy::Recursive required' if $@;
+eval "use Catalyst::Devel 1.0";
+plan skip_all => 'Catalyst::Devel required' if $@;
 plan tests => 1;
 
+use File::Copy::Recursive;
+
 # clean up
 rmtree "$FindBin::Bin/../t/tmp" if -d "$FindBin::Bin/../t/tmp";