[Catalyst-commits] r8338 - Catalyst-Runtime/5.80/trunk/t

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2008-09-03 07:03:41 +0100 (Wed, 03 Sep 2008)
New Revision: 8338

Modified:
   Catalyst-Runtime/5.80/trunk/t/unit_core_mvc.t
Log:
Test MyApp->component not invoking ACCEPT_CONTEXT.

Modified: Catalyst-Runtime/5.80/trunk/t/unit_core_mvc.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/unit_core_mvc.t	2008-09-03 06:03:36 UTC (rev 8337)
+++ Catalyst-Runtime/5.80/trunk/t/unit_core_mvc.t	2008-09-03 06:03:41 UTC (rev 8338)
@@ -1,4 +1,4 @@
-use Test::More tests => 44;
+use Test::More tests => 45;
 use strict;
 use warnings;
 
@@ -167,4 +167,8 @@
     # 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');
 }