Commit | Line | Data |
---|---|---|
487f4489 | 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); |