better connection test
[dbsrgits/DBIx-Class.git] / t / 74mssql.t
index 7de09ef..7b4ddd3 100644 (file)
@@ -24,7 +24,7 @@ $schema->connection($dsn, $user, $pass);
 
 # start disconnected to test reconnection
 $schema->storage->ensure_connected;
-$schema->storage->disconnect;
+$schema->storage->_dbh->disconnect;
 
 my $dbh = $schema->storage->dbh;