Commit | Line | Data |
862d6713 |
1 | use strict; |
2 | use warnings; |
3 | no warnings 'once'; |
4 | use FindBin qw/$Bin/; |
5 | use lib "$Bin/lib"; |
6 | |
7 | use Test::More; |
8 | |
9 | use File::Spec; |
10 | use File::Temp qw/ tempdir /; |
11 | |
12 | my $temp; |
13 | BEGIN { |
14 | $temp = tempdir( CLEANUP => 1 ); |
15 | |
16 | $ENV{CATALYST_HOME} = $temp; |
94d7a76e |
17 | open(my $psgi, '>', File::Spec->catfile($temp, 'testapp.psgi')) or die; |
862d6713 |
18 | print $psgi q{ |
19 | use strict; |
20 | use TestApp; |
21 | |
22 | $main::have_loaded_psgi = 1; |
23 | TestApp->setup_engine('PSGI'); |
24 | my $app = sub { TestApp->run(@_) }; |
25 | }; |
26 | close($psgi); |
27 | } |
28 | use Catalyst::Test qw/ TestApp /; |
29 | |
ce2755cd |
30 | ok !$main::have_loaded_psgi, 'legacy psgi file got ignored'; |
31 | |
32 | like do { |
33 | my $warning; |
34 | local $SIG{__WARN__} = sub { $warning = $_[0] }; |
35 | ok request('/'); |
36 | $warning; |
37 | }, qr/ignored/, 'legacy psgi files raise a warning'; |
862d6713 |
38 | |
39 | done_testing; |
40 | |