first attempt at getting resultset load order correct, tests pass

[dbsrgits/DBIx-Class.git] / t / resultset / components.t

diff --git a/t/resultset/components.t b/t/resultset/components.t
index cd637e9..3f66e6d 100644 (file)
--- a/t/resultset/components.t
+++ b/t/resultset/components.t
@@ -5,12 +5,25 @@ use Test::More;
 
 use lib qw(t/lib);
 use DBICTest;
-
+use Data::Dumper;
 my $schema = DBICTest->init_schema;
 
 isa_ok $schema->resultset('Artist'), 'A::Useless', 'Artist RS';
 ok !$schema->resultset('CD')->isa('A::Useless'), 'CD RS is not A::Useless';
 
+my @classes = ('DBICTest::BaseResultSet::WITH::+A::Useless::+A::MoarUseless',
+               'A::Useless',
+               'A::MoarUseless',
+               'DBICTest::BaseResultSet',
+               'DBIx::Class::ResultSet',
+               'DBIx::Class',
+               'DBIx::Class::Componentised',
+               'Class::C3::Componentised',
+               'Class::Accessor::Grouped');
+warn "classes: " . Dumper \@classes;
+
+is_deeply(mro::get_linear_isa(ref $schema->resultset('Artist')), \@classes, 'Proper ISA Stack Order');
+
 isa_ok $schema->resultset('Employee'), 'A::Useless', 'Employee RS';
 
 done_testing;