Rewrote ODBC's read-data-in-chunks to handle multibyte characters.

[clsql.git] / tests / test-i18n.lisp

diff --git a/tests/test-i18n.lisp b/tests/test-i18n.lisp
index 92aa8d069e7cd1199da5df8c7880195527c47526..b00c6d5529b028763cf458c719be2a509ff17ec1 100644 (file)
--- a/tests/test-i18n.lisp
+++ b/tests/test-i18n.lisp
@@ -36,4 +36,17 @@
                  :flatp t :field-names nil)))
  "Iñtërnâtiônàližætiøn")
 
+(deftest :basic/i18n/big/1
+    (let ((test-string (with-output-to-string (str)
+                         (dotimes (n 250)
+                           (write-sequence "Iñtërnâtiônàližætiøn" str)))))
+      (with-dataset *ds-bigtext*
+        (clsql-sys:execute-command
+         (format nil
+                 "INSERT INTO testbigtext (a) VALUES ('~a')"
+                 test-string))
+        (let ((res (first (clsql:query "SELECT a from testbigtext" :flatp t :field-names nil))))
+          (assert (equal test-string res) (test-string res)
+                  "Returned internationalization string was incorrect. Test :basic/i18n/big/1")))))
+
 ))