X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpsgi_file_testapp_engine_psgi_compat.t;fp=t%2Fpsgi_file_testapp_engine_psgi_compat.t;h=af16bc4e2a249158f660539eb1cd1081959de99a;hb=862d6713da1c7d001a4637cc0967d78b3bedfd7d;hp=0000000000000000000000000000000000000000;hpb=a6f3a029c29d53913d3ab7dcc851b09d554254ff;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/psgi_file_testapp_engine_psgi_compat.t b/t/psgi_file_testapp_engine_psgi_compat.t
new file mode 100644
index 0000000..af16bc4
--- /dev/null
+++ b/t/psgi_file_testapp_engine_psgi_compat.t
@@ -0,0 +1,34 @@
+use strict;
+use warnings;
+no warnings 'once';
+use FindBin qw/$Bin/;
+use lib "$Bin/lib";
+
+use Test::More;
+
+use File::Spec;
+use File::Temp qw/ tempdir /;
+
+my $temp;
+BEGIN {
+    $temp = tempdir( CLEANUP => 1 );
+
+    $ENV{CATALYST_HOME} = $temp;
+    open(my $psgi, '>', File::Spec->catdir($temp, 'testapp.psgi')) or die;
+    print $psgi q{
+        use strict;
+        use TestApp;
+
+        $main::have_loaded_psgi = 1;
+        TestApp->setup_engine('PSGI');
+        my $app = sub { TestApp->run(@_) };
+    };
+    close($psgi);
+}
+use Catalyst::Test qw/ TestApp /;
+
+ok $main::have_loaded_psgi;
+ok request('/');
+
+done_testing;
+