X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Faggregate%2Funit_core_container_get_all_component_services.t;h=4b024a4487895fcc3b346f25d3935c71c38ff1af;hp=ffe172b2881e9d30c1257fc49c1afeed9375641a;hb=8c199f8627c2d972d06aa0a98337ff7ba922d9af;hpb=1601aed5f75e09f1190a3f9a16cdd32df11834d1 diff --git a/t/aggregate/unit_core_container_get_all_component_services.t b/t/aggregate/unit_core_container_get_all_component_services.t index ffe172b..4b024a4 100644 --- a/t/aggregate/unit_core_container_get_all_component_services.t +++ b/t/aggregate/unit_core_container_get_all_component_services.t @@ -75,6 +75,8 @@ while (my ($class, $info) = each %$expected) { isa_ok($received_info->{backcompat_service}, $info->{bcpt_service_isa}, 'backcompat_service'); } +# TODO +# move this somewhere else, or rename the test my %singleton_component_classes; can_ok($c, 'get_all_singleton_lifecycle_components'); ok(my $singleton_comps = $c->get_all_singleton_lifecycle_components, 'singleton components are fetched');