t/relationship/dynamic_foreign_columns.t

   1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8 use DBICTest;
   9
  10 require DBICTest::DynamicForeignCols::TestComputer;
  11
  12 is_deeply (
  13   [ DBICTest::DynamicForeignCols::TestComputer->columns ],
  14   [qw( test_id computer_id )],
  15   'All columns properly defined from DBICTest::DynamicForeignCols::Computer parentclass'
  16 );
  17
  18 done_testing;