;;;; File: test-ooddl.lisp
;;;; Author: Marcus Pearce <m.t.pearce@city.ac.uk>
;;;; Created: 30/03/2004
-;;;; Updated: $Id: $
-;;;; ======================================================================
-;;;;
-;;;; Description ==========================================================
-;;;; ======================================================================
+;;;; Updated: $Id$
;;;;
;;;; Tests for the CLSQL Object Oriented Data Definition Language
;;;; (OODDL).
;;;;
+;;;; 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.
;;;; ======================================================================
#.(clsql:locally-enable-sql-reader-syntax)
+(setq *rt-ooddl*
+ '(
+
;; Ensure slots inherited from standard-classes are :virtual
(deftest :ooddl/metaclass/1
(values
(deftest :ooddl/time/1
(let* ((now (clsql-base:get-time)))
- (when (member *test-database-type* '(:postgresql :postgresql-socket))
+ (when (member *test-database-underlying-type* '(:postgresql :postgresql-socket))
(clsql:execute-command "set datestyle to 'iso'"))
(clsql:update-records [employee] :av-pairs `((birthday ,now))
:where [= [emplid] 1])
(deftest :ooddl/time/2
(let* ((now (clsql-base:get-time))
(fail-index -1))
- (when (member *test-database-type* '(:postgresql :postgresql-socket))
+ (when (member *test-database-underlying-type* '(:postgresql :postgresql-socket))
(clsql:execute-command "set datestyle to 'iso'"))
(dotimes (x 40)
(clsql:update-records [employee] :av-pairs `((birthday ,now))
fail-index)
-1)
+))
+
#.(clsql:restore-sql-reader-syntax-state)
+