X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fmro%2Fcomplex_dfs.t;h=905ac2d69fa1df34720491a1824d55eb14b45aff;hb=a2309040b8fe324ae09c064137c624b4292d93c1;hp=d864555f91e16a388d0f95b190ca28aa6431687d;hpb=e1a479c5e0c08fb10925261f03573261c69ca0dc;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/mro/complex_dfs.t b/t/mro/complex_dfs.t
index d864555..905ac2d 100644
--- a/t/mro/complex_dfs.t
+++ b/t/mro/complex_dfs.t
@@ -2,14 +2,8 @@
 
 use strict;
 use warnings;
-BEGIN {
-    unless (-d 'blib') {
-        chdir 't' if -d 't';
-        @INC = '../lib';
-    }
-}
 
-use Test::More tests => 11;
+require q(./test.pl); plan(tests => 11);
 
 =pod
 
@@ -87,57 +81,57 @@ KJIHGFEDABC
     use base qw/Test::J Test::I/;
 }
 
-is_deeply(
+ok(eq_array(
     mro::get_linear_isa('Test::A'),
-    [ qw(Test::A) ],
-    '... got the right DFS merge order for Test::A');
+    [ qw(Test::A) ]
+), '... got the right DFS merge order for Test::A');
 
-is_deeply(
+ok(eq_array(
     mro::get_linear_isa('Test::B'),
-    [ qw(Test::B) ],
-    '... got the right DFS merge order for Test::B');
+    [ qw(Test::B) ]
+), '... got the right DFS merge order for Test::B');
 
-is_deeply(
+ok(eq_array(
     mro::get_linear_isa('Test::C'),
-    [ qw(Test::C) ],
-    '... got the right DFS merge order for Test::C');
+    [ qw(Test::C) ]
+), '... got the right DFS merge order for Test::C');
 
-is_deeply(
+ok(eq_array(
     mro::get_linear_isa('Test::D'),
-    [ qw(Test::D Test::A Test::B Test::C) ],
-    '... got the right DFS merge order for Test::D');
+    [ qw(Test::D Test::A Test::B Test::C) ]
+), '... got the right DFS merge order for Test::D');
 
-is_deeply(
+ok(eq_array(
     mro::get_linear_isa('Test::E'),
-    [ qw(Test::E Test::D Test::A Test::B Test::C) ],
-    '... got the right DFS merge order for Test::E');
+    [ qw(Test::E Test::D Test::A Test::B Test::C) ]
+), '... got the right DFS merge order for Test::E');
 
-is_deeply(
+ok(eq_array(
     mro::get_linear_isa('Test::F'),
-    [ qw(Test::F Test::E Test::D Test::A Test::B Test::C) ],
-    '... got the right DFS merge order for Test::F');
+    [ qw(Test::F Test::E Test::D Test::A Test::B Test::C) ]
+), '... got the right DFS merge order for Test::F');
 
-is_deeply(
+ok(eq_array(
     mro::get_linear_isa('Test::G'),
-    [ qw(Test::G Test::D Test::A Test::B Test::C) ],
-    '... got the right DFS merge order for Test::G');
+    [ qw(Test::G Test::D Test::A Test::B Test::C) ]
+), '... got the right DFS merge order for Test::G');
 
-is_deeply(
+ok(eq_array(
     mro::get_linear_isa('Test::H'),
-    [ qw(Test::H Test::G Test::D Test::A Test::B Test::C) ],
-    '... got the right DFS merge order for Test::H');
+    [ qw(Test::H Test::G Test::D Test::A Test::B Test::C) ]
+), '... got the right DFS merge order for Test::H');
 
-is_deeply(
+ok(eq_array(
     mro::get_linear_isa('Test::I'),
-    [ qw(Test::I Test::H Test::G Test::D Test::A Test::B Test::C Test::F Test::E) ],
-    '... got the right DFS merge order for Test::I');
+    [ qw(Test::I Test::H Test::G Test::D Test::A Test::B Test::C Test::F Test::E) ]
+), '... got the right DFS merge order for Test::I');
 
-is_deeply(
+ok(eq_array(
     mro::get_linear_isa('Test::J'),
-    [ qw(Test::J Test::F Test::E Test::D Test::A Test::B Test::C) ],
-    '... got the right DFS merge order for Test::J');
+    [ qw(Test::J Test::F Test::E Test::D Test::A Test::B Test::C) ]
+), '... got the right DFS merge order for Test::J');
 
-is_deeply(
+ok(eq_array(
     mro::get_linear_isa('Test::K'),
-    [ qw(Test::K Test::J Test::F Test::E Test::D Test::A Test::B Test::C Test::I Test::H Test::G) ],
-    '... got the right DFS merge order for Test::K');
+    [ qw(Test::K Test::J Test::F Test::E Test::D Test::A Test::B Test::C Test::I Test::H Test::G) ]
+), '... got the right DFS merge order for Test::K');