X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Funit_core_mvc.t;h=0953e2cb338de4c5fe63ab2f346d31f1a8a1bd6e;hp=f77e263f4d232aac0675a393611b0630788659fa;hb=8abaac85ce28cc1e3fa5d8f56c7b1f71213ac5b3;hpb=77fde521b194211d3b4f6f4cf9dfa05a8a868069 diff --git a/t/unit_core_mvc.t b/t/unit_core_mvc.t index f77e263..0953e2c 100644 --- a/t/unit_core_mvc.t +++ b/t/unit_core_mvc.t @@ -158,6 +158,11 @@ is ( MyApp->model , 'MyApp::Model::M', 'default_model in class method ok'); my $c = bless {}, 'MyApp'; + # test accept-context with class rather than instance + MyApp->model('M', qw/foo bar/); + is_deeply($args, [qw/foo bar/], 'MyApp->model args passed to ACCEPT_CONTEXT ok'); + + $c->model('M', qw/foo bar/); is_deeply($args, [qw/foo bar/], '$c->model args passed to ACCEPT_CONTEXT ok'); @@ -168,7 +173,5 @@ is ( MyApp->model , 'MyApp::Model::M', 'default_model in class method ok'); $c->view('::View::V', qw/foo3 bar3/); is_deeply($args, [qw/foo3 bar3/], 'args passed to ACCEPT_CONTEXT ok'); - undef $args; - MyApp->model('M', qw/foo bar/); - is($args, undef, 'MyApp->model does not invoke ACCEPT_CONTEXT'); + }