X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-connection.lisp;h=86c79c3e6282b35bd0accaba43da1ed760b52ccd;hp=6c3bc97d6d4316ae75386f13b8e41f51d1a87686;hb=c41d81c0d1233372012a1de93fcdfd6b2a6e5618;hpb=6a10245b9f5d84290c280eb583f97e1ddaa9cbe5 diff --git a/tests/test-connection.lisp b/tests/test-connection.lisp index 6c3bc97..86c79c3 100644 --- a/tests/test-connection.lisp +++ b/tests/test-connection.lisp @@ -36,17 +36,4 @@ "dbname/user@hostname") ("hostname" "dbname" "user")) -(deftest :db/1 - (let ((inner-db-same) - (original-a) - (outer-db-unchanged)) - (print "test-connection-spec") - (print *test-connection-spec*) - (clsql:with-database (a '*test-connection-spec* :database-type *test-connection-db-type*) - (setq original-a a) - (clsql:with-database (b '*test-connection-spec* :database-type *test-connection-db-type*) - (setq inner-db-same (eq a b))) - (setq outer-db-unchanged (eq a original-a)))) - t t) - ))