9 my $schema = DBICTest->init_schema;
11 isa_ok $schema->resultset('Artist'), 'A::Useless', 'Artist RS';
12 ok !$schema->resultset('CD')->isa('A::Useless'), 'CD RS is not A::Useless';
14 my @classes = ('DBICTest::BaseResultSet::WITH::+A::Useless::+A::MoarUseless',
17 'DBICTest::BaseResultSet',
18 'DBIx::Class::ResultSet',
20 'DBIx::Class::Componentised',
21 'Class::C3::Componentised',
22 'Class::Accessor::Grouped');
23 warn "classes: " . Dumper \@classes;
25 is_deeply(mro::get_linear_isa(ref $schema->resultset('Artist')), \@classes, 'Proper ISA Stack Order');
27 isa_ok $schema->resultset('Employee'), 'A::Useless', 'Employee RS';