-;;;; ======================================================================
-;;;; File: test-fddl.lisp
-;;;; Authors: Marcus Pearce <m.t.pearce@city.ac.uk> and Kevin Rosenberg
-;;;; Created: 30/03/2004
-;;;; Updated: $Id$
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
-;;;; Tests for the CLSQL Functional Data Definition Language
-;;;; (FDDL).
+;;;; Name: test-fddl.lisp
+;;;; Purpose: Tests for the CLSQL Functional Data Definition Language
+;;;; Authors: Marcus Pearce and Kevin M. Rosenberg
+;;;; Created: March 2004
;;;;
;;;; 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.
;;;;
;;;; 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.
- (sort (mapcar #'string-downcase
- (clsql:list-tables ))
- #'string<))
+ (let ((tables (sort (mapcar #'string-downcase (clsql:list-tables))
+ #'string<)))
+ ;; sqlite has a table for autoincrement sequences that we dont care about if
+ ;; it exists
+ (remove "sqlite_sequence" tables :test #'string-equal)))
(clsql:index-exists-p [bar] )
(clsql:index-exists-p [bar] :owner *test-database-user*)
(clsql:index-exists-p [bar] :owner *test-false-database-user*)
(clsql:index-exists-p [bar] )
(clsql:index-exists-p [bar] :owner *test-database-user*)
(clsql:index-exists-p [bar] :owner *test-false-database-user*)
(length (clsql-sys:list-indexes :on [alpha]))
(length (clsql-sys:list-indexes :on [alpha] :owner *test-database-user*))
(length (clsql-sys:list-indexes :on [alpha] :owner *test-false-database-user*))
(length (clsql-sys:list-indexes :on [alpha]))
(length (clsql-sys:list-indexes :on [alpha] :owner *test-database-user*))
(length (clsql-sys:list-indexes :on [alpha] :owner *test-false-database-user*))
(clsql:sequence-exists-p [foo])
(clsql:sequence-exists-p [foo] :owner *test-database-user*)
(clsql:sequence-exists-p [foo] :owner *test-false-database-user*)
(clsql:sequence-exists-p [foo])
(clsql:sequence-exists-p [foo] :owner *test-database-user*)
(clsql:sequence-exists-p [foo] :owner *test-false-database-user*)