1 use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
8 #----------------------------------------------------------------------
9 # Make sure subclasses can be themselves subclassed
10 #----------------------------------------------------------------------
12 use lib 't/cdbi/testlib';
15 INIT { @Film::Threat::ISA = qw/Film/; }
17 ok(Film::Threat->db_Main->ping, 'subclass db_Main()');
18 is_deeply [ sort Film::Threat->columns ], [ sort Film->columns ],
19 'has the same columns';
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()';