Enable hooking parameters into req/res construction. Useful if you are dynamically...

[catagits/Catalyst-Runtime.git] / t / psgi_file_testapp.t

diff --git a/t/psgi_file_testapp.t b/t/psgi_file_testapp.t
index b13464f..14e25fb 100644 (file)
--- a/t/psgi_file_testapp.t
+++ b/t/psgi_file_testapp.t
@@ -14,20 +14,20 @@ BEGIN {
     $temp = tempdir( CLEANUP => 1 );
 
     $ENV{CATALYST_HOME} = $temp;
-    open(my $psgi, '>', File::Spec->catdir($temp, 'testapp.psgi')) or die;
+    open(my $psgi, '>', File::Spec->catfile($temp, 'testapp.psgi')) or die;
     print $psgi q{
         use strict;
         use TestApp;
 
         $main::have_loaded_psgi = 1;
-        my $app = sub { TestApp->psgi_app(@_) };
+        my $app = TestApp->psgi_app;
     };
     close($psgi);
 }
 use Catalyst::Test qw/ TestApp /;
 
-ok $main::have_loaded_psgi;
 ok request('/');
+ok $main::have_loaded_psgi;
 
 done_testing;