Commit | Line | Data |
83eef562 |
1 | use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat'; |
2 | |
510ca912 |
3 | use strict; |
4a233f30 |
4 | use warnings; |
5 | |
510ca912 |
6 | use Test::More; |
7 | |
8 | #---------------------------------------------------------------------- |
9 | # Make sure subclasses can be themselves subclassed |
10 | #---------------------------------------------------------------------- |
11 | |
50891152 |
12 | use lib 't/cdbi/testlib'; |
510ca912 |
13 | use Film; |
14 | |
15 | INIT { @Film::Threat::ISA = qw/Film/; } |
16 | |
17 | ok(Film::Threat->db_Main->ping, 'subclass db_Main()'); |
18 | is_deeply [ sort Film::Threat->columns ], [ sort Film->columns ], |
6a3bf251 |
19 | 'has the same columns'; |
510ca912 |
20 | |
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()'; |
d9bd5195 |
26 | |
27 | done_testing; |