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

use strict;
use Test::More;

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

BEGIN {
  eval "use DBIx::Class::CDBICompat;";
  if ($@) {
    plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
    next;
  }
  plan tests => 6;
}

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()';
Commit	Line	Data
510ca912	1	use strict;
	2	use Test::More;
	3
	4	#----------------------------------------------------------------------
	5	# Make sure subclasses can be themselves subclassed
	6	#----------------------------------------------------------------------
	7
	8	BEGIN {
c910d6a2	9	eval "use DBIx::Class::CDBICompat;";
	10	if ($@) {
	11	plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
	12	next;
	13	}
68de9438	14	plan tests => 6;
510ca912	15	}
510ca912	16
50891152	17	use lib 't/cdbi/testlib';
510ca912	18	use Film;
	19
	20	INIT { @Film::Threat::ISA = qw/Film/; }
	21
	22	ok(Film::Threat->db_Main->ping, 'subclass db_Main()');
	23	is_deeply [ sort Film::Threat->columns ], [ sort Film->columns ],
6a3bf251	24	'has the same columns';
510ca912	25
	26	my $bt = Film->create_test_film;
	27	ok my $btaste = Film::Threat->retrieve('Bad Taste'), "subclass retrieve";
	28	isa_ok $btaste => "Film::Threat";
	29	isa_ok $btaste => "Film";
	30	is $btaste->Title, 'Bad Taste', 'subclass get()';