Commit | Line | Data |
7abe3af2 |
1 | use strict; |
2 | use warnings; |
3 | use lib 't/lib'; |
4 | use Test::More qw(no_plan); |
c8e085ba |
5 | #use Carp::Always; |
7abe3af2 |
6 | |
7 | BEGIN { use_ok 'MTITest'; } |
8 | |
7abe3af2 |
9 | my $raw_foo = MTITest->source('Raw::Foo'); |
10 | |
11 | is_deeply( |
12 | [ $raw_foo->columns ], |
13 | [ qw(id a) ], |
146ec120 |
14 | 'Columns for raw foo ok: id a' |
7abe3af2 |
15 | ); |
16 | |
4d88a8d7 |
17 | my $raw_bar = MTITest->source('Raw::Bar'); |
18 | |
19 | is_deeply( |
20 | [ $raw_bar->columns ], |
21 | [ qw(id b) ], |
146ec120 |
22 | 'Columns for raw bar ok: id b' |
4d88a8d7 |
23 | ); |
24 | |
25 | ok($raw_bar->has_relationship('parent'), 'parent rel exists'); |
26 | |
27 | my $parent_info = $raw_bar->relationship_info('parent'); |
28 | |
29 | is( |
30 | $parent_info->{source}, 'Raw::Foo', |
31 | 'parent rel points to raw parent' |
32 | ); |
33 | |
e7189506 |
34 | my $foo = MTITest->source('Foo'); |
35 | my $bar = MTITest->source('Bar'); |
4d88a8d7 |
36 | |
e7189506 |
37 | is_deeply( |
38 | [ $foo->columns ], |
39 | [ qw(id a) ], |
40 | 'Columns for mti foo are still the same: id a' |
41 | ); |
42 | |
43 | |
44 | is_deeply( |
45 | [ $bar->columns ], |
46 | [ qw(id a words b) ], |
47 | 'Columns for mti bar now contain those of foo and the mixin: id a words b' |
48 | ); |