move sort to the test suite where it belongs

[gitmo/MRO-Compat.git] / t / 10basic.t

diff --git a/t/10basic.t b/t/10basic.t
index 8f9a118..999fd5b 100644 (file)
--- a/t/10basic.t
+++ b/t/10basic.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 5;
+use Test::More tests => 11;
 
 BEGIN {
     use_ok('MRO::Compat');
@@ -16,24 +16,37 @@ BEGIN {
     package EEE; our @ISA = qw/BBB CCC DDD/;
     package FFF; our @ISA = qw/EEE DDD/;
     package GGG; our @ISA = qw/FFF/;
+    package UNIVERSAL; our @ISA = qw/DDD/;
 }
 
 is_deeply(
   mro::get_linear_isa('GGG'),
-  [ 'GGG', 'FFF', 'EEE', 'BBB', 'AAA', 'CCC', 'DDD' ]
+  [ 'GGG', 'FFF', 'EEE', 'BBB', 'AAA', 'CCC', 'DDD' ],
+  "get_linear_isa for GGG",
 );
 
 is_deeply(
-  [mro::get_isarev('GGG')],
+  [sort (mro::get_isarev('GGG'))],
   [],
+  "get_isarev for GGG",
 );
 
 is_deeply(
-  [mro::get_isarev('DDD')],
-  [ 'EEE', 'FFF', 'GGG' ],
+  [sort (mro::get_isarev('DDD'))],
+  [ 'EEE', 'FFF', 'GGG', 'UNIVERSAL' ],
+  "get_isarev for DDD",
 );
 
+
 is_deeply(
-  [mro::get_isarev('AAA')],
-  [ 'BBB', 'CCC', 'DDD', 'EEE', 'FFF', 'GGG' ],
+  [sort (mro::get_isarev('AAA'))],
+  [ 'BBB', 'CCC', 'DDD', 'EEE', 'FFF', 'GGG', 'UNIVERSAL' ],
+  "get_isarev for AAA",
 );
+
+ok(mro::is_universal('UNIVERSAL'), "UNIVERSAL is_universal");
+ok(mro::is_universal('DDD'), "DDD is_universal");
+ok(mro::is_universal('AAA'), "AAA is_universal");
+ok(!mro::is_universal('MRO::Compat'), "MRO::Compat !is_universal");
+ok(!mro::is_universal('BBB'), "BBB !is_universal");
+ok(!mro::is_universal('FFF'), "FFF !is_universal");