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

Timestamp:

02/20/2008 05:30:35 AM (18 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

unicode

parents:

Rev	Tree	Chgset
6	@unicode,6	[unicode,6]
5.1.1	@unicode,5.1.1	[unicode,5.1.1]

revision id:

dsowen@fugue88.ws-20080220053035-zvmt9xh4jzwaqj2i

Message:

Merged from vendor.

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" "nnvfdsfsfz6tztB0#="))
            (res (exec-prepared-query stm (first strings) (second strings))))
       (assert (equal res (list strings))))))