"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
(slot-value employee1 'email))))
"lenin@soviet.org" "lenin-nospam@soviet.org")
-;; tests normalisedp update-instance-from-records
+;; tests normalizedp update-instance-from-records
(deftest :oodml/update-instance/3
(with-dataset *ds-nodes*
(values
"11 subloc-2 second subloc"
"11 Altered title Altered loc")
-;; tests update-slot-from-record with normalisedp stuff
+;; tests update-slot-from-record with normalizedp stuff
(deftest :oodml/update-instance/6
(with-dataset *ds-nodes*
(values