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 | |
4d88a8d7 |
19 | my $raw_bar = MTITest->source('Raw::Bar'); |
20 | |
21 | is_deeply( |
22 | [ $raw_bar->columns ], |
23 | [ qw(id b) ], |
24 | ); |
25 | |
26 | ok($raw_bar->has_relationship('parent'), 'parent rel exists'); |
27 | |
28 | my $parent_info = $raw_bar->relationship_info('parent'); |
29 | |
30 | is( |
31 | $parent_info->{source}, 'Raw::Foo', |
32 | 'parent rel points to raw parent' |
33 | ); |
34 | |
35 | warn Dumper $raw_bar->_columns; |
36 | |
37 | warn Dumper $raw_bar->_relationships; |