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

use strict;
use warnings;

use Test::More;

use lib qw(t/lib);
use DBICTest;

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

isa_ok $schema->resultset('Employee'), 'A::Useless', 'Employee RS';

done_testing;
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;
	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
a17a822d	14	isa_ok $schema->resultset('Employee'), 'A::Useless', 'Employee RS';
a17a822d	15
93b64751	16	done_testing;