Commit | Line | Data |
---|---|---|
38fe1ff9 | 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; |