X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Fpsgi_file_testapp.t;h=14e25fb9751a65329cc54936e405f2d6e906bd39;hp=b13464f55293d0127a55150a3e566805b02783f5;hb=b0ff1be8caade25b5485bf174f0224b2066a3b8f;hpb=a6f3a029c29d53913d3ab7dcc851b09d554254ff

diff --git a/t/psgi_file_testapp.t b/t/psgi_file_testapp.t
index b13464f..14e25fb 100644
--- 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;