X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-oodml.lisp;h=8d2281e6dded219eabdf92fdc742c123f216dec5;hb=8ee8fd019f504602519a38b78db018b5c1ec1e25;hp=2e906b283f6c305280e4979d8e089d0581512f8f;hpb=1619f599a1e37dd30dfe7ab803374f5eed26544a;p=clsql.git

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index 2e906b2..8d2281e 100644
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -111,27 +111,47 @@
 	     (select 'employee :flatp t :caching nil))
 	  t)
 
-	;; :retrieval :immediate should be boundp before accessed
 	(deftest :oodm/retrieval/2
+	    (every #'(lambda (e) (not (slot-boundp e 'address)))
+	     (select 'deferred-employee-address :flatp t :caching nil))
+	  t)
+
+	;; :retrieval :immediate should be boundp before accessed
+	(deftest :oodm/retrieval/3
 	    (every #'(lambda (ea) (slot-boundp ea 'address))
 	     (select 'employee-address :flatp t :caching nil))
 	  t)
 
-	(deftest :oodm/retrieval/3
+	(deftest :oodm/retrieval/4
 	    (mapcar #'(lambda (ea) (typep (slot-value ea 'address) 'address))
 	     (select 'employee-address :flatp t :caching nil))
 	  (t t t t t))
 
-	(deftest :oodm/retrieval/4
+	(deftest :oodm/retrieval/5
+	    (mapcar #'(lambda (ea) (typep (slot-value ea 'address) 'address))
+	     (select 'deferred-employee-address :flatp t :caching nil))
+	  (t t t t t))
+
+	(deftest :oodm/retrieval/6
 	    (every #'(lambda (ea) (slot-boundp (slot-value ea 'address) 'addressid))
 	     (select 'employee-address :flatp t :caching nil))
 	  t)
 
-	(deftest :oodm/retrieval/5	    
+	(deftest :oodm/retrieval/7
+	    (every #'(lambda (ea) (slot-boundp (slot-value ea 'address) 'addressid))
+	     (select 'deferred-employee-address :flatp t :caching nil))
+	  t)
+
+	(deftest :oodm/retrieval/8	    
 	    (mapcar #'(lambda (ea) (slot-value (slot-value ea 'address) 'street-number))
 	     (select 'employee-address :flatp t :order-by [aaddressid] :caching nil))
 	  (10 10 nil nil nil))
 
+	(deftest :oodm/retrieval/9
+	    (mapcar #'(lambda (ea) (slot-value (slot-value ea 'address) 'street-number))
+	     (select 'deferred-employee-address :flatp t :order-by [aaddressid] :caching nil))
+	  (10 10 nil nil nil))
+
 	;; tests update-records-from-instance 
 	(deftest :oodml/update-records/1
 	    (values
@@ -353,6 +373,14 @@
 	     collect (slot-value e 'last-name))
 	  ("Lenin" "Stalin" "Trotsky"))
 
-	))
 
+      (deftest oodml/cache/1
+	  (progn
+	    (setf (clsql-sys:record-caches *default-database*) nil)
+	    (let ((employees (select 'employee)))
+	      (every #'(lambda (a b) (eq a b))
+		     employees (select 'employee))))
+	t)
+			 
+	))
 #.(clsql:restore-sql-reader-syntax-state)