Commit | Line | Data |
---|---|---|
c0329273 | 1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
2 | ||
38fe1ff9 | 3 | use strict; |
4 | use warnings; | |
5 | ||
6 | use Test::More; | |
c0329273 | 7 | |
38fe1ff9 | 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; |