X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-connection.lisp;h=86c79c3e6282b35bd0accaba43da1ed760b52ccd;hb=809eb398e2acc83bc526b0dc174a300d000b938e;hp=7f5a7864967310dac8cead368645d402daf35cc2;hpb=8a8ee2d7d791b7a3efaed06420802a925d16fca3;p=clsql.git diff --git a/tests/test-connection.lisp b/tests/test-connection.lisp index 7f5a786..86c79c3 100644 --- a/tests/test-connection.lisp +++ b/tests/test-connection.lisp @@ -5,7 +5,7 @@ ;;;; Created: 30/03/2004 ;;;; Updated: $Id$ ;;;; -;;;; Tests for CLSQL database connections. +;;;; Tests for CLSQL database connections. ;;;; ;;;; This file is part of CLSQL. ;;;; @@ -18,7 +18,7 @@ (setq *rt-connection* '( - + (deftest :connection/1 (let ((database (clsql:find-database (clsql:database-name clsql:*default-database*) @@ -27,12 +27,12 @@ t) (deftest :connection/2 - (clsql-sys::string-to-list-connection-spec + (clsql-sys::string-to-list-connection-spec "localhost/dbname/user/passwd") ("localhost" "dbname" "user" "passwd")) (deftest :connection/3 - (clsql-sys::string-to-list-connection-spec + (clsql-sys::string-to-list-connection-spec "dbname/user@hostname") ("hostname" "dbname" "user"))