X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Foptional_apache-fastcgi.pl;h=adc68eac2e172103a8b01cc3f9ce1f386542ec35;hp=715a623fa649c6655c54e328954312c3d8c21b3b;hb=8ae46e9876d7f0285d7a71eb3669a593a26ef4bb;hpb=a68314c2bb8ad7c2fc95f0008df7e4ebd35e5ebe

diff --git a/t/optional_apache-fastcgi.pl b/t/optional_apache-fastcgi.pl
old mode 100755
new mode 100644
index 715a623..adc68ea
--- a/t/optional_apache-fastcgi.pl
+++ b/t/optional_apache-fastcgi.pl
@@ -1,5 +1,3 @@
-#!perl
-
 # Run all tests against FastCGI mode under Apache
 #
 # Note, to get this to run properly, you may need to give it the path to your
@@ -18,18 +16,10 @@ use File::Copy::Recursive;
 use FindBin;
 use IO::Socket;
 
-# clean up
-rmtree "$FindBin::Bin/../t/tmp" if -d "$FindBin::Bin/../t/tmp";
-
-# create a TestApp and copy the test libs into it
-mkdir "$FindBin::Bin/../t/tmp";
-chdir "$FindBin::Bin/../t/tmp";
-system "$FindBin::Bin/../script/catalyst.pl TestApp";
-chdir "$FindBin::Bin/..";
-File::Copy::Recursive::dircopy( 't/lib', 't/tmp/TestApp/lib' );
+use lib 't/lib';
+use MakeTestApp;
 
-# remove TestApp's tests so Apache::Test doesn't try to run them
-rmtree 't/tmp/TestApp/t';
+make_test_app;
 
 $ENV{CATALYST_SERVER} = 'http://localhost:8529';