X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-fddl.lisp;h=ef79615b903f7e3edb9824f121ed82b2420bd7d3;hb=faa5d9f559b59cc2bd328e95352b4b8152ea352c;hp=918c56f878ca0b964f701527437c82512274df6c;hpb=70227e5f0b76bb649fc6c1a478d7374953fd815b;p=clsql.git diff --git a/tests/test-fddl.lisp b/tests/test-fddl.lisp index 918c56f..ef79615 100644 --- a/tests/test-fddl.lisp +++ b/tests/test-fddl.lisp @@ -4,14 +4,15 @@ ;;;; Author: Marcus Pearce ;;;; Created: 30/03/2004 ;;;; Updated: $Id$ -;;;; ====================================================================== -;;;; -;;;; Description ========================================================== -;;;; ====================================================================== ;;;; ;;;; Tests for the CLSQL Functional Data Definition Language ;;;; (FDDL). -;;;; +;;;; +;;;; 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) @@ -27,7 +28,7 @@ (sort (mapcar #'string-downcase (clsql:list-tables :owner *test-database-user*)) #'string>)) - "employee" "company" "clsql_object_v") + "employee" "company") ;; create a table, test for its existence, drop it and test again (deftest :fddl/table/2