X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-i18n.lisp;h=b00c6d5529b028763cf458c719be2a509ff17ec1;hb=f67c4e2a4e5b8371a1b7c1629828999ff909f538;hp=92aa8d069e7cd1199da5df8c7880195527c47526;hpb=4ac8303faedf1ff127dd1610821c9aac0de74fdc;p=clsql.git

diff --git a/tests/test-i18n.lisp b/tests/test-i18n.lisp
index 92aa8d0..b00c6d5 100644
--- 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")))))
+
 ))