t/cdbi/03-subclassing.t

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