more work on extended set of Pg auto-pk tests

diff --git a/t/72pg.t b/t/72pg.t
index 5e6c467..7b3c4da 100644 (file)
--- 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 ) = @_;