X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=tests%2Ftest-connection.lisp;h=11d3cc43fe2ec92af5a3f9699028ed1a0cf3a62f;hb=9bbed78051e80e6ab76ae47834136035602bbbf1;hp=df9195754c5a9898c5a998c469571764789a4f61;hpb=c4da3cfcbb955395d8a556e1f89aadad696302b7;p=clsql.git

diff --git a/tests/test-connection.lisp b/tests/test-connection.lisp
index df91957..11d3cc4 100644
--- a/tests/test-connection.lisp
+++ b/tests/test-connection.lisp
@@ -4,13 +4,14 @@
 ;;;; Authors: Marcus Pearce <m.t.pearce@city.ac.uk>, Kevin Rosenberg
 ;;;; Created: 30/03/2004
 ;;;; Updated: $Id$
-;;;; ======================================================================
-;;;;
-;;;; Description ==========================================================
-;;;; ======================================================================
 ;;;;
 ;;;; Tests for CLSQL database connections. 
 ;;;;
+;;;; This file is part of CLSQL.
+;;;;
+;;;; CLSQL users are granted the rights to distribute and use this software
+;;;; as governed by the terms of the Lisp Lesser GNU Public License
+;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;; ======================================================================
 
 (in-package #:clsql-tests)
@@ -26,12 +27,12 @@
   t)
 
 (deftest :connection/2
-    (clsql-base-sys::string-to-list-connection-spec 
+    (clsql-base::string-to-list-connection-spec 
      "localhost/dbname/user/passwd")
   ("localhost" "dbname" "user" "passwd"))
 
 (deftest :connection/3
-    (clsql-base-sys::string-to-list-connection-spec 
+    (clsql-base::string-to-list-connection-spec 
      "dbname/user@hostname")
   ("hostname" "dbname" "user"))