X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faggregate%2Funit_core_component_setup_components.t;h=af6287c791fcf255f4c69649bbf24f24218e364c;hb=b423664b4c857af4acdd53e534bc260101c8fdd0;hp=5586b42d5b84c341e5d72c36649f78f994333d74;hpb=38215fbf368076648d45a2848c71b5302bcbed3d;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/aggregate/unit_core_component_setup_components.t b/t/aggregate/unit_core_component_setup_components.t
index 5586b42..af6287c 100644
--- a/t/aggregate/unit_core_component_setup_components.t
+++ b/t/aggregate/unit_core_component_setup_components.t
@@ -42,9 +42,11 @@ for my $component (@comps) {
     is_deeply( \@comps, \@loaded_comps, 'all components loaded' );
 }
 
-my @controllers = @comps[0..7];
-my @models      = @comps[8..15];
-my @views       = @comps[16..23];
+my @comps_copy  = @comps;
+
+my @controllers = map { s/^TestAppComponents::(C|Controller):://; $_; } @comps_copy[0..7];
+my @models      = map { s/^TestAppComponents::(M|Model):://; $_; }      @comps_copy[8..15];
+my @views       = map { s/^TestAppComponents::(V|View):://; $_; }       @comps_copy[16..23];
 my $container   = TestAppComponents->container;
 
 is_deeply(