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 xx::DBIx::Class::Relationship::CascadeActions; our @ISA = (); use mro 'c3';
}
-is_deeply(
+ok(eq_array(
mro::get_linear_isa('xx::DBIx::Class::Core'),
[qw/
xx::DBIx::Class::Core
xx::DBIx::Class
xx::DBIx::Class::Componentised
xx::Class::Data::Accessor
- /],
- '... got the right C3 merge order for xx::DBIx::Class::Core');
+ /]
+), '... got the right C3 merge order for xx::DBIx::Class::Core');