From: Robert Buels <rmb32@cornell.edu>
Date: Thu, 3 Sep 2009 22:28:45 +0000 (+0000)
Subject: more work on extended set of Pg auto-pk tests
X-Git-Tag: v0.08111~14^2~22
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e25fe56662ba51b17cc3b9c21dff624ef1cc73f1;p=dbsrgits%2FDBIx-Class.git

more work on extended set of Pg auto-pk tests
---

diff --git a/t/72pg.t b/t/72pg.t
index 5e6c467..7b3c4da 100644
--- a/t/72pg.t
+++ b/t/72pg.t
@@ -525,6 +525,7 @@ sub eapk_create {
         }
 
         my $schema = $a{qualify} ? "$a{qualify}." : '';
+        local $_[1]->{Warn} = 0;
         $dbh->do(<<EOS);
 CREATE TABLE apk_t (
   id1 serial primary key
@@ -540,7 +541,6 @@ EOS
     });
 }
 
-
 sub eapk_drop_all {
     my ( $schema, $no_warn ) = @_;