Test MyApp->component not invoking ACCEPT_CONTEXT.
Florian Ragwitz [Wed, 3 Sep 2008 06:03:41 +0000 (06:03 +0000)]
t/unit_core_mvc.t

index f6b9011..f77e263 100644 (file)
@@ -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');
 }