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
use mro 'dfs';
}
-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::O Test::F) ],
- '... got the right MRO for Test::C');
+ [ qw(Test::C Test::D Test::O Test::F) ]
+), '... got the right MRO for Test::C');
-is_deeply(
+ok(eq_array(
mro::get_linear_isa('Test::B'),
- [ qw(Test::B Test::D Test::O Test::E) ],
- '... got the right MRO for Test::B');
+ [ qw(Test::B Test::D Test::O Test::E) ]
+), '... got the right MRO for Test::B');
-is_deeply(
+ok(eq_array(
mro::get_linear_isa('Test::A'),
- [ qw(Test::A Test::B Test::D Test::O Test::E Test::C Test::F) ],
- '... got the right MRO for Test::A');
+ [ qw(Test::A Test::B Test::D Test::O Test::E Test::C Test::F) ]
+), '... got the right MRO for Test::A');
is(Test::A->C_or_D, 'Test::D', '... got the expected method output');
is(Test::A->can('C_or_D')->(), 'Test::D', '... can got the expected method output');