summaryrefslogtreecommitdiff
path: root/t/mro/basic_03_dfs.t
diff options
context:
space:
mode:
Diffstat (limited to 't/mro/basic_03_dfs.t')
-rw-r--r--t/mro/basic_03_dfs.t14
1 files changed, 4 insertions, 10 deletions
diff --git a/t/mro/basic_03_dfs.t b/t/mro/basic_03_dfs.t
index d2af5b2ac9..5794d8ff7f 100644
--- 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');