Changed HTTP test to work the right way
Andy Grundman [Mon, 17 Oct 2005 18:14:05 +0000 (18:14 +0000)]
t/optional/01http-server.ot

index 3520be1..18d8797 100644 (file)
@@ -3,9 +3,13 @@
 use strict;
 use warnings;
 
-use File::Copy::Recursive;
 use File::Path;
 use FindBin;
+use Test::More;
+eval "use File::Copy::Recursive";
+
+plan skip_all => 'File::Copy::Recursive required' if $@;
+plan skip_all => 'set TEST_HTTP to enable this test' unless $ENV{TEST_HTTP};
 
 # clean up
 rmtree "$FindBin::Bin/../../t/var" if -d "$FindBin::Bin/../../t/var";