From: Brandon L Black <blblack@gmail.com>
Date: Fri, 11 May 2007 15:35:54 +0000 (+0000)
Subject: move sort to the test suite where it belongs
X-Git-Tag: 0.02~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d029d56549c36cf534b49e5369dba9b8feabac66;p=gitmo%2FMRO-Compat.git

move sort to the test suite where it belongs
---

diff --git a/lib/MRO/Compat.pm b/lib/MRO/Compat.pm
index 2607e81..496dba0 100644
--- a/lib/MRO/Compat.pm
+++ b/lib/MRO/Compat.pm
@@ -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)
diff --git a/t/10basic.t b/t/10basic.t
index 355f4a8..999fd5b 100644
--- a/t/10basic.t
+++ b/t/10basic.t
@@ -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",
 );