r9277: 7 May 2004 Kevin Rosenberg (kevin@rosenberg.net)

[clsql.git] / tests / test-oodml.lisp

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index df55c38b4f282d15cf136a8a8f97f645f9271dc0..b3ceddee747d5783265dbc9aa4871887c06ae9f6 100644 (file)
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -103,6 +103,16 @@
             (employee-addresses employee2))
          ((t t 2 2 2)))
 
+       ;; :retrieval :immediate should be boundp before accessed
+       (deftest :oodm/retrieval/1
+           (mapcar #'(lambda (ea) (slot-boundp ea 'address))
+            (select 'employee-address :flatp t))
+         (t t t t t))
+
+       (deftest :oodm/retrieval/2
+           (mapcar #'(lambda (ea) (typep (slot-value ea 'address) 'address))
+            (select 'employee-address :flatp t))
+         (t t t t t))
 
        ;; tests update-records-from-instance 
        (deftest :oodml/update-records/1