diff options
Diffstat (limited to 't/mro/basic_03_dfs.t')
-rw-r--r-- | t/mro/basic_03_dfs.t | 14 |
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'); |