Changeset unicode,6 for unicode/src/test/test-oracle.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-oracle.lisp (modified) (1 diff)

unicode/src/test/test-oracle.lisp

@@ -144 +144 @@
                                 '(:string :in) 
                                 '(:string :out))))
-    (let ((str "lölkälkäölkälhjajhgfsjgakjhgfjfjhgffdtrtreztr"))
+    (let ((str "lölkÀlkÀölkÀlhjajhgfsjgakjhgfjfjhgffdtrtreztr"))
       (assert (equal str (first (exec-prepared-command stm str))))
       (free-statement stm)))