$temp = tempdir( CLEANUP => 1 );
$ENV{CATALYST_HOME} = $temp;
- open(my $psgi, '>', File::Spec->catdir($temp, 'testapp.psgi')) or die;
+ open(my $psgi, '>', File::Spec->catfile($temp, 'testapp.psgi')) or die;
print $psgi q{
use strict;
use TestApp;
}
use Catalyst::Test qw/ TestApp /;
-ok $main::have_loaded_psgi;
-ok request('/');
+ok !$main::have_loaded_psgi, 'legacy psgi file got ignored';
+
+like do {
+ my $warning;
+ local $SIG{__WARN__} = sub { $warning = $_[0] };
+ ok request('/');
+ $warning;
+}, qr/ignored/, 'legacy psgi files raise a warning';
done_testing;