4 #----------------------------------------------------------------------
5 # Make sure subclasses can be themselves subclassed
6 #----------------------------------------------------------------------
9 eval "use DBIx::Class::CDBICompat;";
11 plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
14 eval "use DBD::SQLite";
15 plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 6);
18 use lib 't/cdbi/testlib';
21 INIT { @Film::Threat::ISA = qw/Film/; }
23 ok(Film::Threat->db_Main->ping, 'subclass db_Main()');
24 is_deeply [ sort Film::Threat->columns ], [ sort Film->columns ],
25 'has the same columns';
27 my $bt = Film->create_test_film;
28 ok my $btaste = Film::Threat->retrieve('Bad Taste'), "subclass retrieve";
29 isa_ok $btaste => "Film::Threat";
30 isa_ok $btaste => "Film";
31 is $btaste->Title, 'Bad Taste', 'subclass get()';