[dbsrgits/DBIx-Class-ResultSource-MultipleTableInheritance.git] / t / 01load.t

use strict;
use warnings;
use lib 't/lib';
use Test::More qw(no_plan);
use Data::Dumper; $Data::Dumper::Indent = 1;

BEGIN { use_ok 'MTITest'; }

warn MTITest->sources;

my $raw_foo = MTITest->source('Raw::Foo');

is_deeply(
  [ $raw_foo->columns ],
  [ qw(id a) ],
  'Columns for raw foo ok'
);

warn Dumper $raw_foo->_columns;
Commit	Line	Data
7abe3af2	1	use strict;
	2	use warnings;
	3	use lib 't/lib';
	4	use Test::More qw(no_plan);
	5	use Data::Dumper; $Data::Dumper::Indent = 1;
	6
	7	BEGIN { use_ok 'MTITest'; }
	8
	9	warn MTITest->sources;
	10
	11	my $raw_foo = MTITest->source('Raw::Foo');
	12
	13	is_deeply(
	14	[ $raw_foo->columns ],
	15	[ qw(id a) ],
	16	'Columns for raw foo ok'
	17	);
	18
	19	warn Dumper $raw_foo->_columns;