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

BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }

use strict;
use warnings;

use Test::More;

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
c0329273	1	BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ \|\| $! ) }
c0329273	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;