4 use Test::More qw(no_plan);
5 use Data::Dumper; $Data::Dumper::Indent = 1;
7 BEGIN { use_ok 'MTITest'; }
11 my $raw_foo = MTITest->source('Raw::Foo');
14 [ $raw_foo->columns ],
16 'Columns for raw foo ok'
19 my $raw_bar = MTITest->source('Raw::Bar');
22 [ $raw_bar->columns ],
26 ok($raw_bar->has_relationship('parent'), 'parent rel exists');
28 my $parent_info = $raw_bar->relationship_info('parent');
31 $parent_info->{source}, 'Raw::Foo',
32 'parent rel points to raw parent'
35 warn Dumper $raw_bar->_columns;
37 warn Dumper $raw_bar->_relationships;