Changeset error-handling,2.1.4 for error-handling/src/test/test-oracle.lisp

Timestamp:

02/19/2008 08:12:24 PM (18 years ago)

Author:

raverkamp

revision id:

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

Message:

fixed lob parameter handling, fixed tests so they run with sbcl

File:

• error-handling/src/test/test-oracle.lisp (modified) (1 diff)

error-handling/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)))