X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Faccept_context_regression.t;h=2d1a2d3f78581d1b8cc7d62749e6e42803142094;hp=9e243d1f6b9a38ed4f60ce5bf18596a3263f60e4;hb=53c7cc10e26c965f7502936609c5d1e6a35dc819;hpb=298b97911aafbd8c62ce2902e91237e0f8920a24 diff --git a/t/accept_context_regression.t b/t/accept_context_regression.t index 9e243d1..2d1a2d3 100644 --- a/t/accept_context_regression.t +++ b/t/accept_context_regression.t @@ -1,16 +1,20 @@ -use Test::Most; +use strict; +use warnings; +use Test::More; -{ +BEGIN { package MyApp::Model::AcceptContext; use base 'Catalyst::Model'; sub ACCEPT_CONTEXT { my ($self, $c, @args) = @_; - Test::Most::ok( ref $c); + Test::More::ok( ref $c); } $INC{'MyApp/Model/AcceptContext.pm'} = __FILE__; +} +BEGIN { package MyApp::Controller::Root; use base 'Catalyst::Controller'; @@ -20,19 +24,19 @@ use Test::Most; } $INC{'MyApp/Controller/Root.pm'} = __FILE__; +} +BEGIN { package MyApp; use Catalyst; - + MyApp->setup; } use Catalyst::Test 'MyApp'; -my ($res, $c) = ctx_request('/test_model'); +my ($res, $c) = ctx_request('/root/test_model'); ok $res; - done_testing; -