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
   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 done_testing;