X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/e1a479c5e0c08fb10925261f03573261c69ca0dc..859b78b1a8287681e524286f4e989b01816433ba:/t/mro/basic_01_dfs.t

diff --git a/t/mro/basic_01_dfs.t b/t/mro/basic_01_dfs.t
index 11c15a2..c4ea2be 100644
--- a/t/mro/basic_01_dfs.t
+++ b/t/mro/basic_01_dfs.t
@@ -2,18 +2,12 @@
 
 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
 
-This tests the classic diamond inheritence pattern.
+This tests the classic diamond inheritance pattern.
 
    <A>
   /   \
@@ -43,10 +37,10 @@ This tests the classic diamond inheritence pattern.
     use mro 'dfs';
 }
 
-is_deeply(
+ok(eq_array(
     mro::get_linear_isa('Diamond_D'),
-    [ qw(Diamond_D Diamond_B Diamond_A Diamond_C) ],
-    '... got the right MRO for Diamond_D');
+    [ qw(Diamond_D Diamond_B Diamond_A Diamond_C) ]
+), '... got the right MRO for Diamond_D');
 
 is(Diamond_D->hello, 'Diamond_A::hello', '... method resolved itself as expected');
 is(Diamond_D->can('hello')->(), 'Diamond_A::hello', '... can(method) resolved itself as expected');