From: Robert Buels <rmb32@cornell.edu>
Date: Fri, 4 Sep 2009 00:42:02 +0000 (+0000)
Subject: fixed my tests
X-Git-Tag: v0.08111~14^2~12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=691f3663a4fa76111134e475cc9cf866cd6677d2;p=dbsrgits%2FDBIx-Class.git

fixed my tests
---

diff --git a/t/72pg.t b/t/72pg.t
index 39efa16..e4d1fd8 100644
--- a/t/72pg.t
+++ b/t/72pg.t
@@ -578,7 +578,11 @@ sub eapk_poke {
     my $new;
     for my $inc (1,2,3) {
       $new = $schema->resultset('ExtAPK')->create({});
-      for my $id (@eapk_id_columns) {
+      my $proper_seqval = ++$seqs{"$schema_name_actual.apk.id2"};
+      is( $new->id2, $proper_seqval, "$schema_name_actual.apk.id2 correct inc $inc" )
+          or eapk_seq_diag($s,$schema_name);
+      $new->discard_changes;
+      for my $id (grep $_ ne 'id2', @eapk_id_columns) {
         my $proper_seqval = ++$seqs{"$schema_name_actual.apk.$id"};
         is( $new->$id, $proper_seqval, "$schema_name_actual.apk.$id correct inc $inc" )
             or eapk_seq_diag($s,$schema_name);