;;;; File: test-oodml.lisp
;;;; Author: Marcus Pearce <m.t.pearce@city.ac.uk>
;;;; Created: 01/04/2004
-;;;; Updated: $Id: $
+;;;; Updated: $Id$
;;;; ======================================================================
;;;;
;;;; Description ==========================================================
#.(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)