Changeset vendor,8 for vendor/src/test/test-sql-server.lisp

Timestamp:

08/23/2008 11:23:53 AM (18 years ago)

Author:

raverkamp

revision id:

svn-v3-trunk1:1c22b0a8-4d0b-0410-a296-af6a2e6f35e3:plain-odbc%2Ftrunk:14

Message:

support for CFFI-0.10 and 0.9.2
dummy test for postgresql integrated
moved string handling to ffi-support
sql-server tests work, nothing else (driver<->clisp interaction problems?)

File:

• vendor/src/test/test-sql-server.lisp (modified) (2 diffs)

vendor/src/test/test-sql-server.lisp

@@ -30 +30 @@
                  ss-test20 
                  ss-test21 
-                 ss-test22))
+                 ss-test22
+                 ss-test23
+                 ss-test24
+                 ss-test25
+                 ss-test26))
     (pprint sym)
     (funcall sym con)))
@@ -502 +506 @@
 
 
-
+(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)))))))
+      
+  
+
+
+
+
+