More tests for setup_components, some for locate_components

[catagits/Catalyst-Runtime.git] / t / aggregate / unit_core_component_setup.t

diff --git a/t/aggregate/unit_core_component_setup.t b/t/aggregate/unit_core_component_setup.t
index aa0c4fc..f8511e8 100644 (file)
--- a/t/aggregate/unit_core_component_setup.t
+++ b/t/aggregate/unit_core_component_setup.t
@@ -90,18 +90,36 @@ is_deeply(
 );
 
 is_deeply(
+    [ sort TestAppComponents->controllers ],
+    [ sort @controllers ],
+    'controllers are listed correctly by $c->controllers()',
+);
+
+is_deeply(
     [ sort $container->get_sub_container('model')->get_service_list ],
     [ sort @models ],
     'models are in the container',
 );
 
 is_deeply(
+    [ sort TestAppComponents->models ],
+    [ sort @models ],
+    'models are listed correctly by $c->models()',
+);
+
+is_deeply(
     [ sort $container->get_sub_container('view')->get_service_list ],
     [ sort @views ],
     'views are in the container',
 );
 
 is_deeply(
+    [ sort TestAppComponents->views ],
+    [ sort @views ],
+    'views are listed correctly by $c->views()',
+);
+
+is_deeply(
     [ sort keys %{ TestAppComponents->components } ],
     [ sort @comps ],
     'all components are in the components accessor'