;;;; Author: Marcus Pearce <m.t.pearce@city.ac.uk>
;;;; 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)
#.(clsql:locally-enable-sql-reader-syntax)
+(setq *rt-fddl*
+ '(
+
;; list current tables
(deftest :fddl/table/1
(apply #'values
(sort (mapcar #'string-downcase
(clsql:list-tables :owner *test-database-user*))
#'string>))
- "clsql_object_v" "employee" "company")
+ "employee" "company")
;; create a table, test for its existence, drop it and test again
(deftest :fddl/table/2
:if-does-not-exist :ignore))
(t
(clsql:drop-index [bar]:if-does-not-exist :ignore)))
- (clsql:view-exists-p [bar] :owner *test-database-user*))))
+ (clsql:index-exists-p [bar] :owner *test-database-user*))))
t nil)
;; create indexes with names as strings, symbols and in square brackets
(clsql:drop-sequence [foo] :if-does-not-exist :ignore)))
6)
+))
+
#.(clsql:restore-sql-reader-syntax-state)