[Catalyst-commits] r11946 -
Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/t/aggregate
zby at dev.catalyst.perl.org
zby at dev.catalyst.perl.org
Fri Nov 20 15:22:05 GMT 2009
Author: zby
Date: 2009-11-20 15:22:04 +0000 (Fri, 20 Nov 2009)
New Revision: 11946
Modified:
Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/t/aggregate/unit_core_component_loading.t
Log:
Application is not a component any more
Modified: Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/t/aggregate/unit_core_component_loading.t
===================================================================
--- Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/t/aggregate/unit_core_component_loading.t 2009-11-20 07:05:08 UTC (rev 11945)
+++ Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/t/aggregate/unit_core_component_loading.t 2009-11-20 15:22:04 UTC (rev 11946)
@@ -99,7 +99,7 @@
my $complist = $appclass->components;
# the +1 below is for the app class itself
-is(scalar keys %$complist, 24+1, "Correct number of components loaded");
+is(scalar keys %$complist, 24, "Correct number of components loaded");
foreach (keys %$complist) {
@@ -167,7 +167,7 @@
$complist = $appclass->components;
-is(scalar keys %$complist, 24+1, "Correct number of components loaded");
+is(scalar keys %$complist, 24, "Correct number of components loaded");
ok( !exists $complist->{ "${appclass}::Controller::Foo" }, 'Controller::Foo was skipped' );
ok( exists $complist->{ "${appclass}::Extra::Foo" }, 'Extra::Foo was loaded' );
More information about the Catalyst-commits
mailing list