t/01load.t

   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
  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;