2 tests for sending non multibyte characters to the database and back. Not sure how...

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

diff --git a/tests/test-basic.lisp b/tests/test-basic.lisp
index 98e986119fae8c6495caadc55d73ba3b00b4e87b..2c13d803f6f6d9a628cc6946805352da8c458240 100644 (file)
--- a/tests/test-basic.lisp
+++ b/tests/test-basic.lisp
@@ -228,6 +228,15 @@
              )))
       nil)
 
+    (deftest :basic/i18n/1
+       (first (query "SELECT 'Iñtërnâtiônàlizætiøn'"
+                     :flatp t :field-names nil))
+      "Iñtërnâtiônàlizætiøn")
+
+    (deftest :basic/i18n/2
+       (first (query "SELECT 'Iñtërnâtiônàližætiøn'"
+                     :flatp t :field-names nil))
+      "Iñtërnâtiônàližætiøn")
     ))