X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-oodml.lisp;h=88a77909911a5bfb05651bb49cbd36f5176d38ab;hp=b3ceddee747d5783265dbc9aa4871887c06ae9f6;hb=388e813f22e5443353299e4058b99747ccb42377;hpb=fcb0cac1b206dacdb3d1043b5393bbb510a00882

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index b3cedde..88a7790 100644
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -105,15 +105,21 @@
 
 	;; :retrieval :immediate should be boundp before accessed
 	(deftest :oodm/retrieval/1
-	    (mapcar #'(lambda (ea) (slot-boundp ea 'address))
+	    (every #'(lambda (ea) (slot-boundp ea 'address))
 	     (select 'employee-address :flatp t))
-	  (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))
 
+	;; test retrieval is deferred
+	(deftest :oodm/retrieval/3
+	    (every #'(lambda (e) (not (slot-boundp e 'company)))
+	     (select 'employee :flatp t))
+	  t)
+
 	;; tests update-records-from-instance 
 	(deftest :oodml/update-records/1
 	    (values