t/psgi_file_testapp.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->catfile($temp, 'testapp.psgi')) or die;
  18     print $psgi q{
  19         use strict;
  20         use TestApp;
  21
  22         $main::have_loaded_psgi = 1;
  23         my $app = TestApp->psgi_app;
  24     };
  25     close($psgi);
  26 }
  27 use Catalyst::Test qw/ TestApp /;
  28
  29 ok request('/');
  30 ok $main::have_loaded_psgi;
  31
  32 done_testing;
  33