X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-oodml.lisp;fp=tests%2Ftest-oodml.lisp;h=63e1d50c89d62719167f76b53a5ed247d22fb911;hp=953a604a9adc693a657e2185c66ccab3ce37ecef;hb=31ae82f1e0aefcdd11a25239b6fb21c13d38d9f2;hpb=22f792cf09747cce9998bed27bbd7ea3cf21b878

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index 953a604..63e1d50 100644
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -21,6 +21,33 @@
 (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))