From: Florian Ragwitz <rafl@debian.org>
Date: Wed, 3 Sep 2008 06:03:41 +0000 (+0000)
Subject: Test MyApp->component not invoking ACCEPT_CONTEXT.
X-Git-Tag: 5.8000_03~73
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=77fde521b194211d3b4f6f4cf9dfa05a8a868069

Test MyApp->component not invoking ACCEPT_CONTEXT.
---

diff --git a/t/unit_core_mvc.t b/t/unit_core_mvc.t
index f6b9011..f77e263 100644
--- a/t/unit_core_mvc.t
+++ b/t/unit_core_mvc.t
@@ -1,4 +1,4 @@
-use Test::More tests => 44;
+use Test::More tests => 45;
 use strict;
 use warnings;
 
@@ -167,4 +167,8 @@ is ( MyApp->model , 'MyApp::Model::M', 'default_model in class method ok');
     # regexp fallback
     $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');
 }