[Catalyst-commits] r9925 - in Catalyst-Runtime/5.80/trunk: . t

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-04-28 21:58:15 +0100 (Tue, 28 Apr 2009)
New Revision: 9925

Modified:
   Catalyst-Runtime/5.80/trunk/Changes
   Catalyst-Runtime/5.80/trunk/t/unit_core_component.t
Log:
Fix RT#43375

Modified: Catalyst-Runtime/5.80/trunk/Changes
===================================================================
--- Catalyst-Runtime/5.80/trunk/Changes	2009-04-28 20:22:27 UTC (rev 9924)
+++ Catalyst-Runtime/5.80/trunk/Changes	2009-04-28 20:58:15 UTC (rev 9925)
@@ -18,6 +18,7 @@
           incompatibility issues in some cases. (t0m)
         - Additional tests for setup_stats method. (t0m)
         - Fix log levels in Catalyst::Log to be properly additive. (t0m)
+        - Fix RT#43375 by sorting results before testing them (t0m)
 
 5.80002 2009-04-22 01:28:36
         - Fix CATALYST_DEBUG and MYAPP_DEBUG environment variables

Modified: Catalyst-Runtime/5.80/trunk/t/unit_core_component.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/unit_core_component.t	2009-04-28 20:22:27 UTC (rev 9924)
+++ Catalyst-Runtime/5.80/trunk/t/unit_core_component.t	2009-04-28 20:58:15 UTC (rev 9925)
@@ -59,8 +59,9 @@
 
 # multiple returns
 {
-    my @expected = qw( MyApp::C::Controller MyApp::M::Model );
-    is_deeply( [ MyApp->comp( qr{::[MC]::} ) ], \@expected, 'multiple results fro regexp ok' );
+    my @expected = sort qw( MyApp::C::Controller MyApp::M::Model );
+    my @got = sort MyApp->comp( qr{::[MC]::} );
+    is_deeply( \@got, \@expected, 'multiple results from regexp ok' );
 }
 
 # failed search