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

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index 58de728..78a379c 100644
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -515,6 +515,108 @@
                 (delete-records :from [employee] :where [= [emplid] 20])))
           "Bulgakov")
 
+        (deftest :oodml/float/1 
+            (let* ((emp1 (car (select 'employee 
+                                      :where [= [slot-value 'employee 'emplid] 
+                                                1]
+                                      :flatp t 
+                                      :caching nil)))
+                   (height (slot-value emp1 'height)))
+              (prog1 
+                  (progn 
+                    (setf (slot-value emp1 'height) 1.0E0)
+                    (clsql:update-record-from-slot emp1 'height)
+                    (= (car (clsql:select [height] :from [employee] 
+                                          :where [= [emplid] 1] 
+                                          :flatp t 
+                                          :field-names nil))
+                       1))
+                (setf (slot-value emp1 'height) height)
+                (clsql:update-record-from-slot emp1 'height)))
+         t)
+
+        (deftest :oodml/float/2
+            (let* ((emp1 (car (select 'employee 
+                                     :where [= [slot-value 'employee 'emplid] 
+                                               1]
+                                     :flatp t  
+                                     :caching nil)))
+                   (height (slot-value emp1 'height)))
+              (prog1 
+                  (progn 
+                    (setf (slot-value emp1 'height) 1.0S0)
+                    (clsql:update-record-from-slot emp1 'height)
+                    (= (car (clsql:select [height] :from [employee] 
+                                          :where [= [emplid] 1] 
+                                          :flatp t 
+                                          :field-names nil))
+                       1))
+                (setf (slot-value emp1 'height) height)
+                (clsql:update-record-from-slot emp1 'height)))
+         t)
+
+        (deftest :oodml/float/3
+            (let* ((emp1 (car (select 'employee 
+                                     :where [= [slot-value 'employee 'emplid] 
+                                               1]
+                                     :flatp t 
+                                     :caching nil)))
+                   (height (slot-value emp1 'height)))
+              (prog1 
+                  (progn 
+                    (setf (slot-value emp1 'height) 1.0F0)
+                    (clsql:update-record-from-slot emp1 'height)
+                    (= (car (clsql:select [height] :from [employee] 
+                                          :where [= [emplid] 1] 
+                                          :flatp t 
+                                          :field-names nil))
+                       1))
+                (setf (slot-value emp1 'height) height)
+                (clsql:update-record-from-slot emp1 'height)))
+          t)
+
+        (deftest :oodml/float/4
+            (let* ((emp1 (car (select 'employee 
+                                     :where [= [slot-value 'employee 'emplid] 
+                                               1]
+                                     :flatp t 
+                                     :caching nil)))
+                   (height (slot-value emp1 'height)))
+              (prog1 
+                  (progn 
+                    (setf (slot-value emp1 'height) 1.0D0)
+                    (clsql:update-record-from-slot emp1 'height)
+                    (= (car (clsql:select [height] :from [employee] 
+                                          :where [= [emplid] 1] 
+                                          :flatp t  
+                                          :field-names nil))
+                       1))
+                (setf (slot-value emp1 'height) height)
+                (clsql:update-record-from-slot emp1 'height)))
+         t)
+
+        (deftest :oodml/float/5
+            (let* ((emp1 (car (select 'employee 
+                                      :where [= [slot-value 'employee 'emplid] 
+                                                1]
+                                      :flatp t 
+                                      :caching nil)))
+                   (height (slot-value emp1 'height)))
+              (prog1 
+                  (progn 
+                    (setf (slot-value emp1 'height) 1.0L0)
+                    (clsql:update-record-from-slot emp1 'height)
+                    (= (car (clsql:select [height] :from [employee] 
+                                          :where [= [emplid] 1] 
+                                          :flatp t 
+                                          :field-names nil))
+                       1))
+                (setf (slot-value emp1 'height) height)
+                (clsql:update-record-from-slot emp1 'height)))
+         t)
+
 	))
 
+
+
 #.(clsql:restore-sql-reader-syntax-state)