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