added test for new method get_all_component_services

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

diff --git a/t/aggregate/unit_core_container_get_all_component_services.t b/t/aggregate/unit_core_container_get_all_component_services.t
new file mode 100644 (file)
index 0000000..7f381c1
--- /dev/null
+++ b/t/aggregate/unit_core_container_get_all_component_services.t
@@ -0,0 +1,77 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+# FIXME
+# the exact return value of get_all_component_services
+# needs to be reviewed and discussed
+#
+# See also note in Catalyst::IOC::Container
+#
+# the temporary solution is
+# {
+#     class_name => {
+#         type               => (model|controller|view),
+#         service            => Catalyst::IOC::*Injection instance, # most likely BlockInjection
+#         backcompat_service => Catalyst::IOC::ConstructorInjection instance or undef,
+#     },
+#     class_name => ...
+# }
+
+use Test::More;
+use Test::Moose;
+use FindBin '$Bin';
+use lib "$Bin/../lib";
+use TestAppGetAllComponentServices;
+
+ok(my $c = TestAppGetAllComponentServices->container, 'get the container');
+can_ok($c, 'get_all_component_services');
+ok(my $comp_services = $c->get_all_component_services, 'component services are fetched');
+
+my $expected = {
+    'TestAppGetAllComponentServices::Controller::Root' => {
+        type               => 'controller',
+        service_isa        => 'Catalyst::IOC::BlockInjection',
+        bcpt_service_isa   => 'Catalyst::IOC::ConstructorInjection',
+    },
+    'TestAppGetAllComponentServices::Model::Foo' => {
+        type               => 'model',
+        service_isa        => 'Catalyst::IOC::BlockInjection',
+        bcpt_service_isa   => 'Catalyst::IOC::ConstructorInjection',
+    },
+    'TestAppGetAllComponentServices::Model::Bar' => {
+        type               => 'model',
+        service_isa        => 'Catalyst::IOC::BlockInjection',
+        bcpt_service_isa   => 'Catalyst::IOC::ConstructorInjection',
+    },
+    'TestAppGetAllComponentServices::Model::Baz' => {
+        type               => 'model',
+        service_isa        => 'Catalyst::IOC::BlockInjection',
+        bcpt_service_isa   => 'Catalyst::IOC::ConstructorInjection',
+    },
+    'TestAppGetAllComponentServices::View::Wibble' => {
+        type               => 'view',
+        service_isa        => 'Catalyst::IOC::BlockInjection',
+        bcpt_service_isa   => 'Catalyst::IOC::ConstructorInjection',
+    },
+    'TestAppGetAllComponentServices::View::Wobble' => {
+        type               => 'view',
+        service_isa        => 'Catalyst::IOC::BlockInjection',
+        bcpt_service_isa   => 'Catalyst::IOC::ConstructorInjection',
+    },
+    'TestAppGetAllComponentServices::View::Wubble' => {
+        type               => 'view',
+        service_isa        => 'Catalyst::IOC::BlockInjection',
+        bcpt_service_isa   => 'Catalyst::IOC::ConstructorInjection',
+    },
+};
+
+while (my ($class, $info) = each %$expected) {
+    ok(exists $comp_services->{$class}, "class $class exists in the returned hash");
+    my $received_info = $comp_services->{$class};
+    is($received_info->{type}, $info->{type}, 'type is ok');
+    isa_ok($received_info->{service}, $info->{service_isa}, 'service');
+    isa_ok($received_info->{backcompat_service}, $info->{bcpt_service_isa}, 'backcompat_service');
+}
+
+done_testing;