X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-connection.lisp;h=2952444743c80c1f763573d56c1a037e48b785c8;hb=70227e5f0b76bb649fc6c1a478d7374953fd815b;hp=f2bcdf45065979818eabb5d6a00ebefa006bc081;hpb=5a6f424f3c8920f8f11bbf1e3aed6b4c2c7e6af8;p=clsql.git diff --git a/tests/test-connection.lisp b/tests/test-connection.lisp index f2bcdf4..2952444 100644 --- a/tests/test-connection.lisp +++ b/tests/test-connection.lisp @@ -3,7 +3,7 @@ ;;;; File: test-connection.lisp ;;;; Author: Marcus Pearce ;;;; Created: 30/03/2004 -;;;; Updated: $Id: $ +;;;; Updated: $Id$ ;;;; ====================================================================== ;;;; ;;;; Description ========================================================== @@ -15,10 +15,14 @@ (in-package #:clsql-tests) - +(setq *rt-connection* + '( + (deftest :connection/1 (let ((database (clsql:find-database (clsql:database-name clsql:*default-database*) :db-type (clsql:database-type clsql:*default-database*)))) (eql (clsql:database-type database) *test-database-type*)) t) + +))