(when *default-database*
(disconnect :database *default-database*))
(test-connect-to-database type (car (db-type-spec type (read-specs))))
(when *default-database*
(disconnect :database *default-database*))
(test-connect-to-database type (car (db-type-spec type (read-specs))))