t/psgi_file_testapp_engine_psgi_compat.t

   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;
  17     open(my $psgi, '>', File::Spec->catdir($temp, 'testapp.psgi')) or die;
  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
  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';
  38
  39 done_testing;
  40