Use DwarnS in 02view-def.t
[dbsrgits/DBIx-Class-ResultSource-MultipleTableInheritance.git] / t / 02view_def.t
1 use strict;
2 use warnings;
3 use lib 't/lib';
4 use File::Temp;
5 use Test::More qw(no_plan);
6 use Test::Exception;
7 #use Devel::Dwarn;
8
9 BEGIN { use_ok 'MTITest'; }
10
11 dies_ok { MTITest->source('Foo')->view_definition }
12   "Can't generate view def without connected schema";
13
14 my $schema = MTITest->connect('dbi:SQLite::memory:');
15
16 my $dir = "t/sql"; # tempdir(CLEANUP => 0);
17
18 $schema->create_ddl_dir([ 'PostgreSQL' ], 0.1, $dir);
19
20 #diag DwarnS $schema->source($_)->view_definition for qw(Foo Bar);
21 #diag DwarnS $schema->source($_) for qw(Foo Bar);