10 use File::Temp qw/ tempdir /;
14 $temp = tempdir( CLEANUP => 1 );
16 $ENV{CATALYST_HOME} = $temp;
17 open(my $psgi, '>', File::Spec->catdir($temp, 'testapp.psgi')) or die;
22 $main::have_loaded_psgi = 1;
23 my $app = sub { TestApp->psgi_app(@_) };
27 use Catalyst::Test qw/ TestApp /;
29 ok $main::have_loaded_psgi;