Fix {%hash} ~~ %hash test

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

diff --git a/t/mro/basic_04_dfs.t b/t/mro/basic_04_dfs.t
index bb6a352..e49f4f4 100644 (file)
--- a/t/mro/basic_04_dfs.t
+++ b/t/mro/basic_04_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 => 1;
+require q(./test.pl); plan(tests => 1);
 
 =pod 
 
@@ -33,8 +27,8 @@ From the parrot test t/pmc/object-meths.t
     package t::lib::F; use mro 'dfs'; use base ('t::lib::C', 't::lib::D');
 }
 
-is_deeply(
+ok(eq_array(
     mro::get_linear_isa('t::lib::F'),
-    [ qw(t::lib::F t::lib::C t::lib::A t::lib::B t::lib::D t::lib::E) ],
-    '... got the right MRO for t::lib::F');  
+    [ qw(t::lib::F t::lib::C t::lib::A t::lib::B t::lib::D t::lib::E) ]
+), '... got the right MRO for t::lib::F');