(setq *rt-oodml*
'(
+(deftest :oodml/read-symbol-value/1-into-this-package
+ (clsql-sys::read-sql-value
+ (clsql-sys::database-output-sql-as-type 'symbol 'clsql-tests::foo nil nil)
+ 'symbol nil nil)
+ '(clsql-tests::foo))
+
+(deftest :oodml/read-symbol-value/2-into-another-pacakge
+ (clsql-sys::read-sql-value
+ (clsql-sys::database-output-sql-as-type 'symbol 'clsql-sys::foo nil nil)
+ 'symbol nil nil)
+ '(clsql-sys::foo))
+
+(deftest :oodml/read-symbol-value/3-keyword
+ (clsql-sys::read-sql-value
+ (clsql-sys::database-output-sql-as-type 'keyword ':foo nil nil)
+ 'keyword nil nil)
+ '(:foo))
+
+(deftest :oodml/read-symbol-value/4-keyword-error
+ (handler-case
+ (clsql-sys::read-sql-value
+ (clsql-sys::database-output-sql-as-type 'keyword 'foo nil nil)
+ 'keyword nil nil)
+ (clsql-sys::sql-value-conversion-error (c) (declare (ignore c))
+ :error))
+ '(:error))
+
(deftest :oodml/select/1
(with-dataset *ds-employees*
(mapcar #'(lambda (e) (slot-value e 'last-name))
(progn
(clsql:update-records [node]
:av-pairs '(([title] "altered title"))
- :where [= [node-id] 9])
+ :where [= [node-id] (node-id loc2)])
(clsql:update-slot-from-record loc2 'title)
(print-loc loc2))
(progn
(clsql:update-records [subloc]
:av-pairs '(([loc] "altered loc"))
- :where [= [subloc-id] 11])
+ :where [= [subloc-id] (subloc-id subloc2)])
(clsql:update-slot-from-record subloc2 'loc)
(print-subloc subloc2)))))
"9: location-2" "11: second subloc"