implemented get_isarev, interface now complete, needs more tests

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

diff --git a/t/10basic.t b/t/10basic.t
index 7eebe5d..8f9a118 100644 (file)
--- a/t/10basic.t
+++ b/t/10basic.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 2;
+use Test::More tests => 5;
 
 BEGIN {
     use_ok('MRO::Compat');
@@ -22,3 +22,18 @@ is_deeply(
   mro::get_linear_isa('GGG'),
   [ 'GGG', 'FFF', 'EEE', 'BBB', 'AAA', 'CCC', 'DDD' ]
 );
+
+is_deeply(
+  [mro::get_isarev('GGG')],
+  [],
+);
+
+is_deeply(
+  [mro::get_isarev('DDD')],
+  [ 'EEE', 'FFF', 'GGG' ],
+);
+
+is_deeply(
+  [mro::get_isarev('AAA')],
+  [ 'BBB', 'CCC', 'DDD', 'EEE', 'FFF', 'GGG' ],
+);