Commit | Line | Data |
93b64751 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | |
6 | use lib qw(t/lib); |
7 | use DBICTest; |
0a35df1c |
8 | use Data::Dumper; |
93b64751 |
9 | my $schema = DBICTest->init_schema; |
10 | |
11 | isa_ok $schema->resultset('Artist'), 'A::Useless', 'Artist RS'; |
12 | ok !$schema->resultset('CD')->isa('A::Useless'), 'CD RS is not A::Useless'; |
13 | |
51e17d69 |
14 | my @classes = ('DBICTest::BaseResultSet::+::_A_Useless::_A_MoarUseless', |
0a35df1c |
15 | 'A::Useless', |
16 | 'A::MoarUseless', |
17 | 'DBICTest::BaseResultSet', |
18 | 'DBIx::Class::ResultSet', |
19 | 'DBIx::Class', |
20 | 'DBIx::Class::Componentised', |
21 | 'Class::C3::Componentised', |
22 | 'Class::Accessor::Grouped'); |
0a35df1c |
23 | |
24 | is_deeply(mro::get_linear_isa(ref $schema->resultset('Artist')), \@classes, 'Proper ISA Stack Order'); |
25 | |
a17a822d |
26 | isa_ok $schema->resultset('Employee'), 'A::Useless', 'Employee RS'; |
27 | |
93b64751 |
28 | done_testing; |