Remove support for source_bind_attributes() as promised in 0e773352a
[dbsrgits/DBIx-Class.git] / t / cdbi / 03-subclassing.t
1 use strict;
2 use Test::More;
3
4 #----------------------------------------------------------------------
5 # Make sure subclasses can be themselves subclassed
6 #----------------------------------------------------------------------
7
8 use lib 't/cdbi/testlib';
9 use Film;
10
11 INIT { @Film::Threat::ISA = qw/Film/; }
12
13 ok(Film::Threat->db_Main->ping, 'subclass db_Main()');
14 is_deeply [ sort Film::Threat->columns ], [ sort Film->columns ],
15   'has the same columns';
16
17 my $bt = Film->create_test_film;
18 ok my $btaste = Film::Threat->retrieve('Bad Taste'), "subclass retrieve";
19 isa_ok $btaste => "Film::Threat";
20 isa_ok $btaste => "Film";
21 is $btaste->Title, 'Bad Taste', 'subclass get()';
22
23 done_testing;