t/02view_def.t

   1 use strict;
   2 use warnings;
   3 use lib 't/lib';
   4 use Test::More qw(no_plan);
   5 use Test::Exception;
   6 use Data::Dumper; $Data::Dumper::Indent = 1;
   7
   8 BEGIN { use_ok 'MTITest'; }
   9
  10 dies_ok { MTITest->source('Foo')->view_definition }
  11   "Can't generate view def without connected schema";
  12
  13 my $schema = MTITest->connect('dbi:SQLite::memory:');
  14
  15 warn $schema->source($_)->view_definition for qw(Foo Bar);