[Bast-commits] r7544 - DBIx-Class/0.08/branches/pg_unqualified_schema/t

[rbuels at dev.catalyst.perl.org]

Author: rbuels
Date: 2009-09-04 00:42:02 +0000 (Fri, 04 Sep 2009)
New Revision: 7544

Modified:
   DBIx-Class/0.08/branches/pg_unqualified_schema/t/72pg.t
Log:
fixed my tests

Modified: DBIx-Class/0.08/branches/pg_unqualified_schema/t/72pg.t
===================================================================
--- DBIx-Class/0.08/branches/pg_unqualified_schema/t/72pg.t	2009-09-04 00:41:56 UTC (rev 7543)
+++ DBIx-Class/0.08/branches/pg_unqualified_schema/t/72pg.t	2009-09-04 00:42:02 UTC (rev 7544)
@@ -578,7 +578,11 @@
     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);