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 warn Dumper $raw_foo->_columns;