t/resultset/components.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5
   6 use lib qw(t/lib);
   7 use DBICTest;
   8 use Data::Dumper;
   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
  14 my @classes = ('DBICTest::BaseResultSet::+::_A_Useless::_A_MoarUseless',
  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');
  23
  24 is_deeply(mro::get_linear_isa(ref $schema->resultset('Artist')), \@classes, 'Proper ISA Stack Order');
  25
  26 isa_ok $schema->resultset('Employee'), 'A::Useless', 'Employee RS';
  27
  28 done_testing;