X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-oodml.lisp;h=6ab648a03ac1c30ff2a3adc0ca57af96519295fb;hp=06e246005487bb8bc1526988d774b7fb49f9b4b1;hb=d22f943ae95f7421218d74e68179b773c63c0635;hpb=0a7af9ab7bd922372c1d5d21994bd54d32915a89

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index 06e2460..6ab648a 100644
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -594,6 +594,27 @@
   "10 Altered subloc title Altered loc"
   "10 subloc-1 a subloc")
 
+;; Verify that we can set a float to nil and then read it back
+;; (was failing in Postgresql at somepoint)
+(deftest :oodml/update-records/10
+    (with-dataset *ds-employees*
+      (let ((emp (first (clsql:select 'employee :where [= [emplid] 1] :flatp T))))
+	(setf (height emp) nil)
+	(clsql-sys:update-record-from-slot emp 'height)
+	(values
+	  (clsql:select [height] :from [employee] :where [= [emplid] 1])
+	  (progn
+	    (setf (height emp) 42.0)
+	    (clsql-sys:update-record-from-slot emp 'height)
+	    (clsql:select [height] :from [employee] :where [= [emplid] 1]))
+	  (progn
+	    (setf (height emp) 24.13d0)
+	    (clsql-sys:update-record-from-slot emp 'height)
+	    (clsql:select [height] :from [employee] :where [= [emplid] 1])))))
+  ((nil))
+  ((42.0d0))
+  ((24.13d0)))
+
 
 ;; tests update-instance-from-records
 (deftest :oodml/update-instance/1