From 4fbe211143d23f4f0ece6db9433d7cabf5ef49ce Mon Sep 17 00:00:00 2001 From: Marcus Pearce Date: Tue, 4 May 2004 12:35:35 +0000 Subject: [PATCH] r9221: Test for boolean slots. --- ChangeLog | 4 +++- tests/test-oodml.lisp | 5 +++++ 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 0f99960..a62b6bb 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,7 +1,9 @@ 4 May 2004 Marcus Pearce (m.t.pearce@city.ac.uk) * sql/objects.lisp: added derived type specifier for universal time. * sql/package.lisp: added #:universal-time to clsql-sys exports. - + * tests/test-oodml.lisp: added test for translation of boolean slots + in SELECT with object queries. + 3 May 2004 Kevin Rosenberg (kevin@rosenberg.net) * db-odbc/odbc-api.lisp: Fix changing nil to "NIL" for odbc/postgresql backend. diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp index 84046fc..9969abd 100644 --- a/tests/test-oodml.lisp +++ b/tests/test-oodml.lisp @@ -84,6 +84,11 @@ (slot-value a 'postal-code))) nil "" "no city" 0) +(deftest :oodml/select/10 + (mapcar #'(lambda (e) (slot-value e 'married)) + (clsql:select 'employee :flatp t :order-by [emplid])) + (T T T NIL NIL NIL NIL NIL NIL NIL)) + ;; tests update-records-from-instance (deftest :oodml/update-records/1 (values -- 2.34.1