move sort to the test suite where it belongs
Brandon L Black [Fri, 11 May 2007 15:35:54 +0000 (15:35 +0000)]
lib/MRO/Compat.pm
t/10basic.t

index 2607e81..496dba0 100644 (file)
@@ -255,7 +255,7 @@ sub __get_isarev {
     my $classname = shift;
     die "mro::get_isarev requires a classname" if !$classname;
 
-    sort @{__get_isarev_recurse($classname, __get_all_pkgs_with_isas(), 0)};
+    @{__get_isarev_recurse($classname, __get_all_pkgs_with_isas(), 0)};
 }
 
 =head2 mro::is_universal($classname)
index 355f4a8..999fd5b 100644 (file)
@@ -26,19 +26,20 @@ is_deeply(
 );
 
 is_deeply(
-  [mro::get_isarev('GGG')],
+  [sort (mro::get_isarev('GGG'))],
   [],
   "get_isarev for GGG",
 );
 
 is_deeply(
-  [mro::get_isarev('DDD')],
+  [sort (mro::get_isarev('DDD'))],
   [ 'EEE', 'FFF', 'GGG', 'UNIVERSAL' ],
   "get_isarev for DDD",
 );
 
+
 is_deeply(
-  [mro::get_isarev('AAA')],
+  [sort (mro::get_isarev('AAA'))],
   [ 'BBB', 'CCC', 'DDD', 'EEE', 'FFF', 'GGG', 'UNIVERSAL' ],
   "get_isarev for AAA",
 );