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

[rbuels at dev.catalyst.perl.org]

Author: rbuels
Date: 2009-08-10 20:37:31 +0000 (Mon, 10 Aug 2009)
New Revision: 7293

Modified:
   DBIx-Class/0.08/branches/pg_unqualified_schema/t/72pg.t
Log:
added test for empty table before non-schema-qualified pg sequence test in 72pg.t

Modified: DBIx-Class/0.08/branches/pg_unqualified_schema/t/72pg.t
===================================================================
--- DBIx-Class/0.08/branches/pg_unqualified_schema/t/72pg.t	2009-08-10 18:45:50 UTC (rev 7292)
+++ DBIx-Class/0.08/branches/pg_unqualified_schema/t/72pg.t	2009-08-10 20:37:31 UTC (rev 7293)
@@ -50,7 +50,7 @@
     unless ($dsn && $user);
 
 
-plan tests => 41;
+plan tests => 42;
 
 DBICTest::Schema->load_classes( 'Casecheck', 'ArrayTest' );
 my $schema = DBICTest::Schema->connect($dsn, $user, $pass,);
@@ -108,9 +108,10 @@
 # This is in Core now, but it's here just to test that it doesn't break
 $schema->class('Artist')->load_components('PK::Auto');
 
+cmp_ok( $schema->resultset('Artist')->count, '==', 0, 'this should start with an empty artist table');
 
-{ #test that auto-pk also works with the defined search path by un-schema-qualifying
-  #the table name
+{ # test that auto-pk also works with the defined search path by
+  # un-schema-qualifying the table name
   my $artist_name_save = $schema->source("Artist")->name;
   $schema->source("Artist")->name("artist");