X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Fhead_middleware.t;h=8b8eb6d697fa1d0327a0cd51b901818a4bf3d35b;hp=1171c7ba4b1b422e257be1600bf0fab00c22d2e6;hb=53c7cc10e26c965f7502936609c5d1e6a35dc819;hpb=6ffef690bbc5db6afd2592153565e578285888bf diff --git a/t/head_middleware.t b/t/head_middleware.t index 1171c7b..8b8eb6d 100644 --- a/t/head_middleware.t +++ b/t/head_middleware.t @@ -9,8 +9,9 @@ use Plack::Test; # body BUT not so quickly that we fail to calculate the length. This test # exists mainly to prevent regressions. -{ +{ package MyApp::Controller::Root; + $INC{'MyApp/Controller/Root.pm'} = __FILE__; use base 'Catalyst::Controller'; @@ -22,12 +23,10 @@ use Plack::Test; package MyApp; use Catalyst; - MyApp->setup; + Test::More::ok(MyApp->setup, 'setup app'); } -$INC{'MyApp/Controller/Root.pm'} = __FILE__; -Test::More::ok(MyApp->setup); ok my $psgi = MyApp->psgi_app, 'build psgi app'; @@ -44,7 +43,7 @@ test_psgi $psgi, sub { my $res = $cb->(HEAD "/root/test"); is $res->code, 200, 'OK'; is $res->content, '', 'correct body'; - is $res->content_length, 16, 'correct length'; + is $res->content_length, 16, 'correct length'; }; done_testing;