4 use Test::More qw(no_plan);
6 BEGIN { use_ok 'MTITest'; }
8 my $raw_foo = MTITest->source('Raw::Foo');
11 [ $raw_foo->columns ],
13 'Columns for raw foo ok: id a'
16 my $raw_bar = MTITest->source('Raw::Bar');
19 [ $raw_bar->columns ],
21 'Columns for raw bar ok: id b'
24 ok($raw_bar->has_relationship('parent'), 'parent rel exists');
26 my $parent_info = $raw_bar->relationship_info('parent');
29 $parent_info->{source}, 'Raw::Foo',
30 'parent rel points to raw parent'
33 my $foo = MTITest->source('Foo');
34 my $bar = MTITest->source('Bar');
39 'Columns for mti foo are still the same: id a'
46 'Columns for mti bar now contain those of foo and the mixin: id a words b'