X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-oodml.lisp;h=58de7289d77b8600b230e56b1275b1da6acca9f6;hp=549ddbc631fd6545f774a962475b0f55a09357ec;hb=d0695ffb828519fade3aa5166236812e6144975b;hpb=43ee802384af388413dd7f3072f7aefd6c90240d

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index 549ddbc..58de728 100644
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -446,7 +446,7 @@
 				       :flatp t))
 		     (dea-list-copy (copy-seq dea-list))
 		     (initially-unbound (every #'(lambda (dea) (not (slot-boundp dea 'address))) dea-list)))
-		(update-object-joins dea-list)
+		(update-objects-joins dea-list)
 		(values
 		 initially-unbound
 		 (equal dea-list dea-list-copy)
@@ -454,5 +454,67 @@
 		 (every #'(lambda (dea) (typep (slot-value dea 'address) 'address)) dea-list)
 		 (mapcar #'(lambda (dea) (slot-value (slot-value dea 'address) 'addressid)) dea-list))))
 	  t t t t (1 1 2 2 2))
+	
+	(deftest :oodml/big/1 
+	    (let ((objs (clsql:select 'big :order-by [i] :flatp t)))
+	      (values
+	       (length objs)
+	       (do ((i 0 (1+ i))
+		    (max (expt 2 60))
+		    (rest objs (cdr rest)))
+		   ((= i (length objs)) t)
+		 (let ((obj (car rest))
+		       (index (1+ i)))
+		   (unless (and (eql (slot-value obj 'i) index)
+				(eql (slot-value obj 'bi) (truncate max index)))
+		     (print index)
+		     (describe obj)
+		     (return nil))))))
+	  555 t)
+
+        (deftest :oodml/db-auto-sync/1 
+            (values
+              (progn 
+                (make-instance 'employee :emplid 20 :groupid 1 
+                               :last-name "Ivanovich")
+                (select [last-name] :from [employee] :where [= [emplid] 20]
+                        :flatp t :field-names nil))
+             (let ((*db-auto-sync* t))
+               (make-instance 'employee :emplid 20 :groupid 1 
+                              :last-name "Ivanovich")
+               (prog1 (select [last-name] :from [employee] :flatp t
+                              :field-names nil 
+                              :where [= [emplid] 20])
+                 (delete-records :from [employee] :where [= [emplid] 20]))))
+          nil ("Ivanovich"))
+
+        (deftest :oodml/db-auto-sync/2
+            (values
+             (let ((instance (make-instance 'employee :emplid 20 :groupid 1 
+                                            :last-name "Ivanovich")))
+               (setf (slot-value instance 'last-name) "Bulgakov")
+               (select [last-name] :from [employee] :where [= [emplid] 20]
+                       :flatp t :field-names nil))
+             (let* ((*db-auto-sync* t)
+                    (instance (make-instance 'employee :emplid 20 :groupid 1 
+                                             :last-name "Ivanovich")))
+               (setf (slot-value instance 'last-name) "Bulgakov")
+               (prog1 (select [last-name] :from [employee] :flatp t
+                              :field-names nil 
+                              :where [= [emplid] 20])
+                 (delete-records :from [employee] :where [= [emplid] 20]))))
+          nil ("Bulgakov"))
+	
+        (deftest :oodml/setf-slot-value/1 
+            (let* ((*db-auto-sync* t)
+                   (instance (make-instance 'employee :emplid 20 :groupid 1)))
+              (prog1 
+                  (setf 
+                   (slot-value instance 'first-name) "Mikhail"
+                   (slot-value instance 'last-name) "Bulgakov")
+                (delete-records :from [employee] :where [= [emplid] 20])))
+          "Bulgakov")
+
 	))
+
 #.(clsql:restore-sql-reader-syntax-state)