Version 5.0.0: International character sets support

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

diff --git a/tests/test-i18n.lisp b/tests/test-i18n.lisp
index 4a6cf67d42bc3a068a961a33994e2455535d031d..92aa8d069e7cd1199da5df8c7880195527c47526 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,7 +31,7 @@
 ;; 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")