[Bast-commits] r8049 - DBIx-Class/0.08/branches/mssql_rno_pagination/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-12-08 23:19:49 +0000 (Tue, 08 Dec 2009)
New Revision: 8049

Modified:
   DBIx-Class/0.08/branches/mssql_rno_pagination/t/746mssql.t
Log:
Test for immediate connection with known storage type

Modified: DBIx-Class/0.08/branches/mssql_rno_pagination/t/746mssql.t
===================================================================
--- DBIx-Class/0.08/branches/mssql_rno_pagination/t/746mssql.t	2009-12-08 22:44:34 UTC (rev 8048)
+++ DBIx-Class/0.08/branches/mssql_rno_pagination/t/746mssql.t	2009-12-08 23:19:49 UTC (rev 8049)
@@ -28,6 +28,11 @@
 
 isa_ok( $schema->storage, 'DBIx::Class::Storage::DBI::ODBC::Microsoft_SQL_Server' );
 
+{
+  my $schema2 = $schema->connect ($schema->storage->connect_info);
+  ok (! $schema2->storage->connected, 'a re-connected cloned schema starts unconnected');
+}
+
 $schema->storage->dbh_do (sub {
     my ($storage, $dbh) = @_;
     eval { $dbh->do("DROP TABLE artist") };