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
package t::lib::F; use mro 'c3'; 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::D t::lib::A t::lib::B t::lib::E) ],
- '... got the right MRO for t::lib::F');
+ [ qw(t::lib::F t::lib::C t::lib::D t::lib::A t::lib::B t::lib::E) ]
+), '... got the right MRO for t::lib::F');