use strict;
use warnings;
-BEGIN {
- unless (-d 'blib') {
- chdir 't' if -d 't';
- @INC = '../lib';
- }
-}
-use Test::More tests => 1;
-use mro;
+require q(./test.pl); plan(tests => 1);
=pod
use base ('Intelligent', 'Humanoid');
}
-is_deeply(
+ok(eq_array(
mro::get_linear_isa('Vulcan'),
- [ qw(Vulcan Intelligent Sentient LifeForm Object Humanoid BiPedal) ],
- '... got the right MRO for the Vulcan Dylan Example');
+ [ qw(Vulcan Intelligent Sentient LifeForm Object Humanoid BiPedal) ]
+), '... got the right MRO for the Vulcan Dylan Example');