t/relationship/dynamic_foreign_columns.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use lib qw(t/lib);
   6 use DBICTest;
   7
   8 require DBICTest::DynamicForeignCols::TestComputer;
   9
  10 is_deeply (
  11   [ DBICTest::DynamicForeignCols::TestComputer->columns ],
  12   [qw( test_id computer_id )],
  13   'All columns properly defined from DBICTest::DynamicForeignCols::Computer parentclass'
  14 );
  15
  16 done_testing;