;;;; File: test-fdml.lisp
;;;; Author: Marcus Pearce <m.t.pearce@city.ac.uk>, Kevin Rosenberg
;;;; Created: 30/03/2004
-;;;; Updated: $Id$
;;;;
;;;; Tests for the CLSQL Functional Data Manipulation Language
;;;; (FDML).
;; (was failing in Postgresql at somepoint)
(deftest :oodml/update-records/10
(with-dataset *ds-employees*
- (let ((emp (first (clsql:select 'employee :where [= [emplid] 1] :flatp T))))
+ (let ((emp (first (clsql:select 'employee :where [= [emplid] 1] :flatp t))))
(setf (height emp) nil)
(clsql-sys:update-record-from-slot emp 'height)
(values