Dave Cross: Still Munging Data With Perl: Online event - Mar 27 Learn more

use strict;
use lib qw(t/lib);
is_deeply (
[ DBICTest::DynamicForeignCols::TestComputer->columns ],
[qw( test_id computer_id )],
'All columns properly defined from DBICTest::DynamicForeignCols::Computer parentclass'
);
done_testing;