Changeset unicode,7 for unicode/src/test/test-oracle.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-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 "lolkalkxylkzlhjajhgfsjgakjhgfjfjhgffdtrtreztr"))
       (assert (equal str (first (exec-prepared-command stm str))))
       (free-statement stm)))