Fix test skipping of http tests
Marcus Ramberg [Fri, 7 Jul 2006 11:12:38 +0000 (11:12 +0000)]
t/optional_http-server-restart.t
t/optional_http-server.t

index 008e0b2..35e9f16 100644 (file)
@@ -15,8 +15,8 @@ eval "use Catalyst::Devel 1.0;";
 \r
 plan skip_all => 'set TEST_HTTP to enable this test' unless $ENV{TEST_HTTP};\r
 plan skip_all => 'Catalyst::Devel required' if $@;\r
-\r
-use File::Copy::Recursive;\r
+eval "use File::Copy::Recursive";\r
+plan skip_all => 'File::Copy::Recursive required' if $@;\r
 \r
 plan tests => 40;\r
 \r
index 5516b66..4b69d80 100644 (file)
@@ -11,10 +11,10 @@ use Test::More;
 plan skip_all => 'set TEST_HTTP to enable this test' unless $ENV{TEST_HTTP};
 eval "use Catalyst::Devel 1.0";
 plan skip_all => 'Catalyst::Devel required' if $@;
+eval "use File::Copy::Recursive";
+plan skip_all => 'File::Copy::Recursive required' if $@;
 plan tests => 1;
 
-use File::Copy::Recursive;
-
 # clean up
 rmtree "$FindBin::Bin/../t/tmp" if -d "$FindBin::Bin/../t/tmp";