[dbsrgits/DBIx-Class.git] / t / relationship / dynamic_foreign_columns.t

use strict;
use warnings;

use Test::More;
use lib qw(t/lib);
use DBICTest;

require DBICTest::DynamicForeignCols::TestComputer;

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

done_testing;
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;