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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-09-04 06:51:30 +0000 (Fri, 04 Sep 2009)
New Revision: 7548

Modified:
   DBIx-Class/0.08/branches/pg_unqualified_schema/t/72pg.t
Log:
Proper unconnected test

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 06:50:57 UTC (rev 7547)
+++ DBIx-Class/0.08/branches/pg_unqualified_schema/t/72pg.t	2009-09-04 06:51:30 UTC (rev 7548)
@@ -32,7 +32,7 @@
   ok (!$s->storage->_dbh, 'definitely not connected');
 
   # Check that datetime_parser returns correctly before we explicitly connect.
- SKIP: {
+  SKIP: {
       eval { require DateTime::Format::Pg };
       skip "DateTime::Format::Pg required", 2 if $@;
 
@@ -43,9 +43,14 @@
       is( $parser, 'DateTime::Format::Pg', 'datetime_parser is as expected');
   }
 
-
+  ok (!$s->storage->_dbh, 'still not connected');
+}
+{
+  my $s = DBICTest::Schema->connect($dsn, $user, $pass);
   # make sure sqlt_type overrides work (::Storage::DBI::Pg does this)
+  ok (!$s->storage->_dbh, 'definitely not connected');
   is ($s->storage->sqlt_type, 'PostgreSQL', 'sqlt_type correct pre-connection');
+  ok (!$s->storage->_dbh, 'still not connected');
 }
 
 ### connect, create postgres-specific test schema