1use strict; 2use Test::More; 3 4#---------------------------------------------------------------------- 5# Make sure subclasses can be themselves subclassed 6#---------------------------------------------------------------------- 7 8BEGIN { 9 eval "use DBD::SQLite"; 10 plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 6); 11} 12 13use lib 't/testlib'; 14use Film; 15 16INIT { @Film::Threat::ISA = qw/Film/; } 17 18ok(Film::Threat->db_Main->ping, 'subclass db_Main()'); 19is_deeply [ sort Film::Threat->columns ], [ sort Film->columns ], 20 'has the same columns'; 21 22my $bt = Film->create_test_film; 23ok my $btaste = Film::Threat->retrieve('Bad Taste'), "subclass retrieve"; 24isa_ok $btaste => "Film::Threat"; 25isa_ok $btaste => "Film"; 26is $btaste->Title, 'Bad Taste', 'subclass get()'; 27