Index: vendor/src/test/test-sql-server.lisp
===================================================================
--- vendor/src/test/test-sql-server.lisp	(revision vendor,6)
+++ vendor/src/test/test-sql-server.lisp	(revision vendor,8)
@@ -30,5 +30,9 @@
                  ss-test20 
                  ss-test21 
-                 ss-test22))
+                 ss-test22
+                 ss-test23
+                 ss-test24
+                 ss-test25
+                 ss-test26))
     (pprint sym)
     (funcall sym con)))
@@ -502,3 +506,23 @@
 
 
-
+(defun ss-test24 (con)
+  (dolist (x '(234 123 237))
+  (let ((res (exec-query con (format nil "select char(~A)as a" x))))
+    (assert (= x (char-code (char (first (first res)) 0)))))))
+
+(defun ss-test25 (con)
+  (dolist (x '(234 123 237))
+  (let ((res (exec-query con (format nil "select ascii('~A') as a" (code-char x)))))
+    (assert (= x (first (first res)))))))
+
+(defun ss-test26 (con)
+  (dolist (x '(234 123 237))
+    (let ((res (exec-query con "select ? as a" (string (code-char x)))))
+      (assert (= x (char-code (char (first (first res)) 0)))))))
+      
+  
+
+
+
+
+