t/cdbi/03-subclassing.t

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