*function_body = sub {
my ($name,$args,$body_parts) = @_;
- $body_parts = [ map {$_ .= ' RETURNING *'} @$body_parts ];
my $arglist = join(
', ',
map "_${\$_->{name}} ${\uc($_->{data_type})}",
BEGIN {
use_ok 'MTITest';
- $ENV{DBIC_TRACE} = 1;
+ $ENV{DBIC_TRACE} = 0;
}
dies_ok { MTITest->source('Foo')->view_definition }
"Can't generate view def without connected schema";
-my $schema = MTITest->connect( 'dbi:Pg:dbname=mti', 'postgres', '' );
+my $schema = MTITest->connect( 'dbi:Pg:dbname=test', 'postgres', '' );
my $dir = "t/sql"; # tempdir(CLEANUP => 0);
+#$schema->storage->dbh->{Warn} = 0;
$schema->create_ddl_dir( ['PostgreSQL'], 0.1, $dir );
-$schema->deploy( { add_drop_table => 1, add_drop_view => 1 } );
+$schema->deploy( { add_drop_table => 1, add_drop_view => 1} );
BEGIN {
use_ok 'Cafe';
- $ENV{DBIC_TRACE} = 1;
+ $ENV{DBIC_TRACE} = 0;
}
-my $schema = Cafe->connect( 'dbi:Pg:dbname=cafe', 'postgres', '' );
+my $schema = Cafe->connect( 'dbi:Pg:dbname=test', 'postgres', '' );
+$schema->storage->dbh->{Warn} = 0;
$schema->storage->ensure_connected;
$schema->storage->_use_insert_returning(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 } );
+
isa_ok(
$schema->source('Sumatra'),
'DBIx::Class::ResultSource::View',