Renamed HTTP test

[catagits/Catalyst-Runtime.git] / t / optional / 01http-server.ot

diff --git a/t/optional/01http-server.ot b/t/optional/01http-server.ot
deleted file mode 100644 (file)
index 18d8797..0000000
--- a/t/optional/01http-server.ot
+++ /dev/null
@@ -1,41 +0,0 @@
-#!perl
-
-use strict;
-use warnings;
-
-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";
-
-# create a TestApp and copy the test libs into it
-mkdir "$FindBin::Bin/../../t/var";
-chdir "$FindBin::Bin/../../t/var";
-system "$FindBin::Bin/../../script/catalyst.pl TestApp";
-chdir "$FindBin::Bin/../..";
-File::Copy::Recursive::dircopy( 't/live/lib', 't/var/TestApp/lib' );
-
-# spawn the standalone HTTP server
-my $pid = open SERVER, 
-    "$FindBin::Bin/../../t/var/TestApp/script/testapp_server.pl 2>&1 |"
-    or die "Unable to spawn standalone HTTP server: $!";
-    
-# wait for it to start
-sleep 2;
-    
-# run the testsuite against the HTTP server
-$ENV{CATALYST_SERVER} = 'http://localhost:3000';
-system( 'prove -r -Ilib/ t/live/' );
-
-# shut it down
-kill 2, $pid;
-close SERVER;
-
-# clean up
-rmtree "$FindBin::Bin/../../t/var" if -d "$FindBin::Bin/../../t/var";