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