X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-oodml.lisp;h=4898067161a9b387a840a8fb21f1a30bb75bad8a;hb=645d2ea7396466b8673e3421b55e45cd327f0195;hp=f934e5e7db407db244e5015e70ee38d84894dc42;hpb=e34a3ace07250c5c55b3f6598459ef7b6d292bdb;p=clsql.git

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index f934e5e..4898067 100644
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -110,8 +110,8 @@
                          (clsql:select 'employee :order-by '(([emplid] :asc)) 
                                        :flatp t))
           (mapcar #'(lambda (x) (slot-value x 'emplid))
-                  (clsql:select 'employee :order-by '(([emplid] :desc)) 
-                                :flatp t)))
+	   (clsql:select 'employee :order-by '(([emplid] :desc)) 
+			 :flatp t)))
          (1 2 3 4 5 6 7 8 9 10)
          (10 9 8 7 6 5 4 3 2 1))
 
@@ -384,7 +384,7 @@
 	  ("Lenin" "Stalin" "Trotsky"))
 
 
-      (deftest oodml/cache/1
+      (deftest :oodml/cache/1
 	  (progn
 	    (setf (clsql-sys:record-caches *default-database*) nil)
 	    (let ((employees (select 'employee)))
@@ -392,18 +392,18 @@
 		     employees (select 'employee))))
 	t)
 
-	(deftest oodml/cache/2
+	(deftest :oodml/cache/2
 	    (let ((employees (select 'employee)))
 	      (equal employees (select 'employee :flatp t)))
 	  nil)
 	
-	(deftest oodml/refresh/1
+	(deftest :oodml/refresh/1
 	    (let ((addresses (select 'address)))
 	      (equal addresses (select 'address :refresh t)))
 	  t)
 
-	(deftest oodml/refresh/2
-	    (let* ((addresses (select 'address :order-by [addressid] :flatp t))
+	(deftest :oodml/refresh/2
+	    (let* ((addresses (select 'address :order-by [addressid] :flatp t :refresh t))
 		   (city (slot-value (car addresses) 'city)))
 	      (clsql:update-records [addr] 
                               :av-pairs '((city_field "A new city"))
@@ -419,15 +419,15 @@
 			new-city)))
 	  t "Leningrad" "A new city")
 	
-	(deftest oodml/refresh/3
+	(deftest :oodml/refresh/3
 	    (let* ((addresses (select 'address :order-by [addressid] :flatp t)))
 	      (values
 	       (equal addresses (select 'address :refresh t :flatp t))
 	       (equal addresses (select 'address :flatp t))))
 	  nil nil)
 	
-	(deftest oodml/refresh/4
-	    (let* ((addresses (select 'address :order-by [addressid] :flatp t))
+	(deftest :oodml/refresh/4
+	    (let* ((addresses (select 'address :order-by [addressid] :flatp t :refresh t))
 		   (*db-auto-sync* t))
 	      (make-instance 'address :addressid 1000 :city "A new address city")
 	      (let ((new-addresses (select 'address :order-by [addressid] :flatp t :refresh t)))
@@ -440,13 +440,13 @@
 	  2 3 t t)
 		
 	      
-	(deftest oodml/uoj/1
+	(deftest :oodml/uoj/1
 	    (progn
 	      (let* ((dea-list (select 'deferred-employee-address :caching nil :order-by [ea_join aaddressid]
 				       :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,23 @@
 		 (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)
+	
 	))
 #.(clsql:restore-sql-reader-syntax-state)