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 my $raw_foo = MTITest->source('Raw::Foo');
  10
  11 is_deeply(
  12   [ $raw_foo->columns ],
  13   [ qw(id a) ],
  14   'Columns for raw foo ok: id a'
  15 );
  16
  17 my $raw_bar = MTITest->source('Raw::Bar');
  18
  19 is_deeply(
  20   [ $raw_bar->columns ],
  21   [ qw(id b) ],
  22   'Columns for raw bar ok: id b'
  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
  34 warn Dumper $raw_bar->_columns;
  35
  36 warn Dumper $raw_bar->_relationships;
  37
  38 warn Dumper(MTITest->source('JustATable')->_relationships);