[dbsrgits/DBIx-Class.git] / t / cdbi / 03-subclassing.t

use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';

use strict;
use warnings;

use Test::More;

#----------------------------------------------------------------------
# Make sure subclasses can be themselves subclassed
#----------------------------------------------------------------------

use lib 't/cdbi/testlib';
use Film;

INIT { @Film::Threat::ISA = qw/Film/; }

ok(Film::Threat->db_Main->ping, 'subclass db_Main()');
is_deeply [ sort Film::Threat->columns ], [ sort Film->columns ],
  'has the same columns';

my $bt = Film->create_test_film;
ok my $btaste = Film::Threat->retrieve('Bad Taste'), "subclass retrieve";
isa_ok $btaste => "Film::Threat";
isa_ok $btaste => "Film";
is $btaste->Title, 'Bad Taste', 'subclass get()';

done_testing;
Commit	Line	Data
83eef562	1	use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
83eef562	2
510ca912	3	use strict;
4a233f30	4	use warnings;
4a233f30	5
510ca912	6	use Test::More;
	7
	8	#----------------------------------------------------------------------
	9	# Make sure subclasses can be themselves subclassed
	10	#----------------------------------------------------------------------
	11
50891152	12	use lib 't/cdbi/testlib';
510ca912	13	use Film;
	14
	15	INIT { @Film::Threat::ISA = qw/Film/; }
	16
	17	ok(Film::Threat->db_Main->ping, 'subclass db_Main()');
	18	is_deeply [ sort Film::Threat->columns ], [ sort Film->columns ],
6a3bf251	19	'has the same columns';
510ca912	20
	21	my $bt = Film->create_test_film;
	22	ok my $btaste = Film::Threat->retrieve('Bad Taste'), "subclass retrieve";
	23	isa_ok $btaste => "Film::Threat";
	24	isa_ok $btaste => "Film";
	25	is $btaste->Title, 'Bad Taste', 'subclass get()';
d9bd5195	26
d9bd5195	27	done_testing;