From: Marcus Ramberg <marcus@nordaaker.com>
Date: Fri, 7 Jul 2006 11:12:38 +0000 (+0000)
Subject: Fix test skipping of http tests
X-Git-Tag: 5.7099_04~398
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=0d348d559a5aaa3f4ee46e4524f3e15788044c1b

Fix test skipping of http tests
---

diff --git a/t/optional_http-server-restart.t b/t/optional_http-server-restart.t
index 008e0b2..35e9f16 100644
--- a/t/optional_http-server-restart.t
+++ b/t/optional_http-server-restart.t
@@ -15,8 +15,8 @@ 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 $@;
-
-use File::Copy::Recursive;
+eval "use File::Copy::Recursive";
+plan skip_all => 'File::Copy::Recursive required' if $@;
 
 plan tests => 40;
 
diff --git a/t/optional_http-server.t b/t/optional_http-server.t
index 5516b66..4b69d80 100644
--- a/t/optional_http-server.t
+++ b/t/optional_http-server.t
@@ -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";