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

[rbuels at dev.catalyst.perl.org]

Author: rbuels
Date: 2009-09-03 22:41:26 +0000 (Thu, 03 Sep 2009)
New Revision: 7537

Modified:
   DBIx-Class/0.08/branches/pg_unqualified_schema/t/72pg.t
Log:
more work on extended set of Pg auto-pk 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-03 22:29:04 UTC (rev 7536)
+++ DBIx-Class/0.08/branches/pg_unqualified_schema/t/72pg.t	2009-09-03 22:41:26 UTC (rev 7537)
@@ -527,13 +527,14 @@
                qualify_table => 2,
              );
 
-  lives_ok {
-    $schema->resultset('ExtAPK')->create({});
-  } 'create in first schema lives';
-
   eapk_poke( $schema, 0 );
+  eapk_poke( $schema, 2 );
   eapk_poke( $schema, 1 );
+  eapk_poke( $schema, 0 );
   eapk_poke( $schema, 1 );
+  eapk_poke( $schema, 1 );
+  eapk_poke( $schema, 2 );
+  eapk_poke( $schema, 0 );
 
   # set our search path back
   eapk_set_search_path( $schema, @$search_path_save );