;;;; File: test-oodml.lisp
;;;; Author: Marcus Pearce <m.t.pearce@city.ac.uk>
;;;; Created: 01/04/2004
-;;;; Updated: $Id: $
-;;;; ======================================================================
-;;;;
-;;;; Description ==========================================================
-;;;; ======================================================================
+;;;; Updated: $Id$
;;;;
;;;; Tests for the CLSQL Object Oriented Data Definition Language
;;;; (OODML).
;;;;
+;;;; 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-oodml*
+ '(
+
(deftest :oodml/select/1
(mapcar #'(lambda (e) (slot-value e 'last-name))
(clsql:select 'employee :order-by [last-name]))
;; sqlite fails this because it is typeless
(deftest :oodml/select/5
- (length (sql:select 'employee :where [married]))
+ (length (clsql:select 'employee :where [married]))
3)
;; tests update-records-from-instance
; collect (slot-value e 'last-name))
; ("Lenin" "Stalin" "Trotsky"))
+))
#.(clsql:restore-sql-reader-syntax-state)