4 use Test::More tests => 6;
11 my $raw_foo = LoadTest->source('Raw::Foo');
13 is_deeply( [ $raw_foo->columns ], [qw(id a)],
14 'Columns for raw foo ok: id a' );
16 my $raw_bar = LoadTest->source('Raw::Bar');
18 is_deeply( [ $raw_bar->columns ], [qw(id b)],
19 'Columns for raw bar ok: id b' );
21 ok( $raw_bar->has_relationship('parent'), 'parent rel exists' );
23 my $parent_info = $raw_bar->relationship_info('parent');
25 is( $parent_info->{source}, 'Raw::Foo', 'parent rel points to raw parent' );
27 my $foo = LoadTest->source('Foo');
28 my $bar = LoadTest->source('Bar');
30 is_deeply( [ $foo->columns ],
31 [qw(id a)], 'Columns for mti foo are still the same: id a' );
36 'Columns for mti bar now contain those of foo and the mixin: id a words b'