Move File::Fetch from lib to ext

[perl5.git] / t / mro / basic_02_c3.t

diff --git a/t/mro/basic_02_c3.t b/t/mro/basic_02_c3.t
index 86fbc32..b2c3ce4 100644 (file)
--- a/t/mro/basic_02_c3.t
+++ b/t/mro/basic_02_c3.t
@@ -2,14 +2,8 @@
 
 use strict;
 use warnings;
-BEGIN {
-    unless (-d 'blib') {
-        chdir 't' if -d 't';
-        @INC = '../lib';
-    }
-}
 
-use Test::More tests => 10;
+require q(./test.pl); plan(tests => 10);
 
 =pod
 
@@ -85,35 +79,35 @@ Level 0                 0 | A |                (more specialized)
     use mro 'c3';    
 }
 
-is_deeply(
+ok(eq_array(
     mro::get_linear_isa('Test::F'),
-    [ qw(Test::F Test::O) ],
-    '... got the right MRO for Test::F');
+    [ qw(Test::F Test::O) ]
+), '... got the right MRO for Test::F');
 
-is_deeply(
+ok(eq_array(
     mro::get_linear_isa('Test::E'),
-    [ qw(Test::E Test::O) ],
-    '... got the right MRO for Test::E');    
+    [ qw(Test::E Test::O) ]
+), '... got the right MRO for Test::E');    
 
-is_deeply(
+ok(eq_array(
     mro::get_linear_isa('Test::D'),
-    [ qw(Test::D Test::O) ],
-    '... got the right MRO for Test::D');       
+    [ qw(Test::D Test::O) ]
+), '... got the right MRO for Test::D');       
 
-is_deeply(
+ok(eq_array(
     mro::get_linear_isa('Test::C'),
-    [ qw(Test::C Test::D Test::F Test::O) ],
-    '... got the right MRO for Test::C'); 
+    [ qw(Test::C Test::D Test::F Test::O) ]
+), '... got the right MRO for Test::C'); 
 
-is_deeply(
+ok(eq_array(
     mro::get_linear_isa('Test::B'),
-    [ qw(Test::B Test::D Test::E Test::O) ],
-    '... got the right MRO for Test::B');     
+    [ qw(Test::B Test::D Test::E Test::O) ]
+), '... got the right MRO for Test::B');     
 
-is_deeply(
+ok(eq_array(
     mro::get_linear_isa('Test::A'),
-    [ qw(Test::A Test::B Test::C Test::D Test::E Test::F Test::O) ],
-    '... got the right MRO for Test::A');  
+    [ qw(Test::A Test::B Test::C Test::D Test::E Test::F Test::O) ]
+), '... got the right MRO for Test::A');  
     
 is(Test::A->C_or_D, 'Test::C', '... got the expected method output');
 is(Test::A->can('C_or_D')->(), 'Test::C', '... can got the expected method output');