[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