X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Foptional_apache-cgi.pl;fp=t%2Foptional_apache-cgi.pl;h=09363a6261e13c5e5284aab3d298ad8ac8bce042;hp=f81c7c47bf26e4255ba7d67ad71eff4c0a9c58e6;hb=8ae46e9876d7f0285d7a71eb3669a593a26ef4bb;hpb=f3d2ec61cac867693834d3093c9dff7891e3e3f5

diff --git a/t/optional_apache-cgi.pl b/t/optional_apache-cgi.pl
index f81c7c4..09363a6 100644
--- a/t/optional_apache-cgi.pl
+++ b/t/optional_apache-cgi.pl
@@ -16,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' );
-
-# remove TestApp's tests so Apache::Test doesn't try to run them
-rmtree 't/tmp/TestApp/t';
+use lib 't/lib';
+use MakeTestApp;
+
+make_test_app;
 
 $ENV{CATALYST_SERVER} = 'http://localhost:8529/cgi';