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 TestApp->setup_engine('PSGI');
24 my $app = sub { TestApp->run(@_) };
28 use Catalyst::Test qw/ TestApp /;
30 ok !$main::have_loaded_psgi, 'legacy psgi file got ignored';
34 local $SIG{__WARN__} = sub { $warning = $_[0] };
37 }, qr/ignored/, 'legacy psgi files raise a warning';