Tidy tests
Amiri Barksdale at Home [Thu, 23 Dec 2010 18:21:36 +0000 (10:21 -0800)]
lib/DBIx/Class/ResultSource/MultipleTableInheritance.pm
t/02view_def.t
t/03insert.t

index d07c74a..9dceab6 100644 (file)
@@ -278,7 +278,6 @@ BEGIN {
 
   *function_body = sub {
     my ($name,$args,$body_parts) = @_;
-    $body_parts = [ map {$_ .= ' RETURNING *'} @$body_parts ];
     my $arglist = join(
       ', ',
         map "_${\$_->{name}} ${\uc($_->{data_type})}",
index a9a1345..7dffd5c 100644 (file)
@@ -8,15 +8,16 @@ use Devel::Dwarn;
 
 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} );
index e7271d0..275a753 100644 (file)
@@ -7,12 +7,18 @@ use Devel::Dwarn;
 
 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',