t/01load.t

   1 use strict;
   2 use warnings;
   3 use lib 't/lib';
   4 use Test::More qw(no_plan);
   5 use LoadTest;
   6
   7 BEGIN {
   8     $ENV{DBIC_TRACE} = 0;
   9 }
  10
  11 my $raw_foo = LoadTest->source('Raw::Foo');
  12
  13 is_deeply( [ $raw_foo->columns ], [qw(id a)],
  14     'Columns for raw foo ok: id a' );
  15
  16 my $raw_bar = LoadTest->source('Raw::Bar');
  17
  18 is_deeply( [ $raw_bar->columns ], [qw(id b)],
  19     'Columns for raw bar ok: id b' );
  20
  21 ok( $raw_bar->has_relationship('parent'), 'parent rel exists' );
  22
  23 my $parent_info = $raw_bar->relationship_info('parent');
  24
  25 is( $parent_info->{source}, 'Raw::Foo', 'parent rel points to raw parent' );
  26
  27 my $foo = LoadTest->source('Foo');
  28 my $bar = LoadTest->source('Bar');
  29
  30 is_deeply( [ $foo->columns ],
  31     [qw(id a)], 'Columns for mti foo are still the same: id a' );
  32
  33 is_deeply(
  34     [ $bar->columns ],
  35     [qw(id a words b)],
  36     'Columns for mti bar now contain those of foo and the mixin: id a words b'
  37 );