added better debugging info when failing to load foreign library

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

diff --git a/tests/test-i18n.lisp b/tests/test-i18n.lisp
index 4a6cf67d42bc3a068a961a33994e2455535d031d..b00c6d5529b028763cf458c719be2a509ff17ec1 100644 (file)
--- a/tests/test-i18n.lisp
+++ b/tests/test-i18n.lisp
@@ -23,7 +23,7 @@
 ;;; UTF-8 for example can handle these easily.
 ;; I show this as a 20char string and 27 bytes in utf-8
 (deftest :basic/i18n/1
- (let ((uffi:*default-external-format* :utf-8))
+ (let ((uffi:*default-foreign-encoding* :utf-8))
    (first (query "SELECT 'Iñtërnâtiônàlizætiøn'"
                  :flatp t :field-names nil)))
  "Iñtërnâtiônàlizætiøn")
@@ -31,9 +31,22 @@
 ;; the z in this one is even stronger
 ;; I show this as a 20char string and 28 bytes in utf-8
 (deftest :basic/i18n/2
- (let ((uffi:*default-external-format* :utf-8))
+ (let ((uffi:*default-foreign-encoding* :utf-8))
    (first (query "SELECT 'Iñtërnâtiônàližætiøn'"
                  :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")))))
+
 ))