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::+::_A_Useless::_A_MoarUseless',
17 'DBICTest::BaseResultSet',
18 'DBIx::Class::ResultSet',
20 'DBIx::Class::Componentised',
21 'Class::C3::Componentised',
22 'Class::Accessor::Grouped');
24 is_deeply(mro::get_linear_isa(ref $schema->resultset('Artist')), \@classes, 'Proper ISA Stack Order');
26 isa_ok $schema->resultset('Employee'), 'A::Useless', 'Employee RS';