X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faggregate%2Fpsgi_file.t;fp=t%2Faggregate%2Fpsgi_file.t;h=8fd6eada95641e4adf97defedf41ca25b831b934;hb=c234ca5552150323a80cc138ef4d39d353534258;hp=0000000000000000000000000000000000000000;hpb=48a080a4ed47edc7be8b474cac496ba373715da4;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/aggregate/psgi_file.t b/t/aggregate/psgi_file.t
new file mode 100644
index 0000000..8fd6ead
--- /dev/null
+++ b/t/aggregate/psgi_file.t
@@ -0,0 +1,46 @@
+use strict;
+use warnings;
+use Test::More;
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+use File::Temp qw/ tempdir /;
+use TestApp;
+use File::Spec;
+
+my $home = tempdir( CLEANUP => 1 );
+my $path = File::Spec->catfile($home, 'testapp.psgi');
+open(my $psgi, '>', $path)
+    or die;
+print $psgi q{
+use strict;
+use warnings;
+use TestApp;
+
+TestApp->psgi_app;
+};
+close($psgi);
+# Check we wrote out something that compiles
+system($^X, '-I', "$FindBin::Bin/../lib", '-c', $path)
+    ? fail('.psgi does not compile')
+    : pass('.psgi compiles');
+
+# NOTE - YOU *CANNOT* do something like:
+#my $psgi_ref = require $path;
+# otherwise this test passes!
+# I don't exactly know why that is yet, however, to be safe for future, that
+# is why this test writes out it's own .psgi file in a temp directory - so that that
+# path has never been require'd before, and will never be require'd again..
+
+local TestApp->config->{home} = $home;
+
+my $failed = 0;
+eval {
+    # Catch infinite recursion (or anything else)
+    local $SIG{__WARN__} = sub { warn(@_); $failed = 1; die; };
+    TestApp->setup_psgi_app;
+};
+ok(!$@, 'No exception')
+    or diag $@;
+ok(!$failed, 'TestApp->setup_psgi_app works');
+
+done_testing;