From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 11 Jun 2006 14:45:39 +0000 (+0000)
Subject: tidy up the test
X-Git-Tag: 5.7099_04~515
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=2d486591cee0779dbfa2afff5e35d957f46ec79c

tidy up the test
r9839@cain (orig r4320):  bricas | 2006-06-07 18:47:56 +0000
---

diff --git a/t/unit_core_component_loading.t b/t/unit_core_component_loading.t
index ffd20a5..f0204ec 100644
--- a/t/unit_core_component_loading.t
+++ b/t/unit_core_component_loading.t
@@ -148,14 +148,7 @@ $complist = $appclass->components;
 
 is(scalar keys %$complist, 24+1, "Correct number of components loaded");
 
-my $seen_foo_controller = 0;
-my $seen_extra = 0;
-foreach (keys %$complist) {
-    $seen_foo_controller++ if $_ eq "${appclass}::Controller::Foo";
-    $seen_extra++ if $_ eq "${appclass}::Extra::Foo";
-}
-
-is( $seen_foo_controller, 0, 'Controller::Foo was skipped' );
-is( $seen_extra, 1, 'Extra::Foo was loaded' );
+ok( !exists $complist->{ "${appclass}::Controller::Foo" }, 'Controller::Foo was skipped' );
+ok( exists $complist->{ "${appclass}::Extra::Foo" }, 'Extra::Foo was loaded' );
 
 rmtree($libdir);
\ No newline at end of file