warn if ++ or -- are unable to change the value because it's beyond

[p5sagit/p5-mst-13.2.git] / t / mro / basic_03_dfs.t

diff --git a/t/mro/basic_03_dfs.t b/t/mro/basic_03_dfs.t
index d2af5b2..5794d8f 100644 (file)
--- a/t/mro/basic_03_dfs.t
+++ b/t/mro/basic_03_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 => 4;
+require q(./test.pl); plan(tests => 4);
 
 =pod
 
@@ -92,10 +86,10 @@ Level 0                0 | A |
     use mro 'dfs';
 }
 
-is_deeply(
+ok(eq_array(
     mro::get_linear_isa('Test::A'),
-    [ qw(Test::A Test::B Test::E Test::O Test::D Test::C Test::F) ],
-    '... got the right MRO for Test::A');      
+    [ qw(Test::A Test::B Test::E Test::O Test::D Test::C Test::F) ]
+), '... got the right MRO for Test::A');      
     
 is(Test::A->O_or_D, 'Test::O', '... got the right method dispatch');    
 is(Test::A->O_or_F, 'Test::O', '... got the right method dispatch');