Changeset unicode,6 for unicode/src/test/test-sql-server.lisp

Timestamp:

02/16/2008 06:51:26 PM (18 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

unicode

revision id:

dsowen@fugue88.ws-20080216185126-o4jw3arsc8jw1ihd

Message:

Convert test strings to unicode.

File:

• unicode/src/test/test-sql-server.lisp (modified) (1 diff)

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

@@ -245 +245 @@
                             '(:string :in) 
                             '(:unicode-string :in))
-    (let* ((strings '("hjgkhgkzt65646&%2" "nnvfdsfsfz6tztß0#="))
+    (let* ((strings '("hjgkhgkzt65646&%2" "nnvfdsfsfz6tztß0#="))
            (res (exec-prepared-query stm (first strings) (second strings))))
       (assert (equal res (list strings))))))