Changeset cffi,3 for cffi/src/test/test-oracle.lisp

Timestamp:

12/07/2007 02:13:22 PM (19 years ago)

Author:

raverkamp

revision id:

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

Message:

included changes for 64 bit linux

File:

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

cffi/src/test/test-oracle.lisp

@@ -64 +64 @@
               con "update type_test set t_blob=?,t_clob=? where id =1" 
               '(:blob :in) '(:clob :in))))
-  (exec-prepared-update stm 
-                         (make-array 10000 :element-type '(unsigned-byte 8) :initial-element 33)
-                         (make-string 100001 :initial-element #\o)))
+  (exec-prepared-update 
+   stm ;; sizes were 100000 and 100001
+   (make-array 100000 :element-type '(unsigned-byte 8) :initial-element 33)
+   (make-string 1000001 :initial-element #\o)))
   (commit con))