use File::Temp;
use Test::More qw(no_plan);
use Test::Exception;
-#use Devel::Dwarn;
+use Devel::Dwarn;
-BEGIN { use_ok 'MTITest'; }
+BEGIN {
+ use_ok 'MTITest';
+ $ENV{DBIC_TRACE} = 1;
+}
dies_ok { MTITest->source('Foo')->view_definition }
- "Can't generate view def without connected schema";
+"Can't generate view def without connected schema";
#my $schema = MTITest->connect('dbi:SQLite::memory:');
-my $schema = MTITest->connect('dbi:Pg:dbname=mti','postgres','');
+
+my $schema = MTITest->connect( 'dbi:Pg:dbname=mti', 'postgres', '' );
+diag(DwarnS $schema);
#diag("MTITest view definition: ", $schema->resultset('Bar')->result_source->view_definition);
-my $dir = "t/sql"; # tempdir(CLEANUP => 0);
+my $dir = "t/sql"; # tempdir(CLEANUP => 0);
+
+$schema->create_ddl_dir( ['PostgreSQL'], 0.1, $dir );
+$schema->deploy( { add_drop_table => 1, add_drop_view => 1 } );
-$schema->create_ddl_dir([ 'PostgreSQL' ], 0.1, $dir);
-$schema->deploy({add_drop_table => 1, add_drop_view => 1});
#diag DwarnS $schema->source($_)->view_definition for qw(Foo Bar);
#diag DwarnS $schema->source($_) for qw(Foo Bar);