+2010-02-05 Kevin Rosenberg <kevin@rosenberg.net>
+ * clsql-test.asd, tests/{test-i18n,test-init}.lisp:
+ Load test-i18n.lisp and use its tests as long as 'uffi:no-i18n is
+ not present in cl:*features*. This requires UFFI 1.7.2 or above.
+
2010-02-05 Kevin Rosenberg <kevin@rosenberg.net>
* sql/utils.lisp: Reading #\no-break_space causes an
error for non-unicode SBCL. Conditionalize read of
(:file "test-fdml")
(:file "test-ooddl")
(:file "test-oodml")
- (:file "test-syntax")))))
+ (:file "test-syntax")
+ #-uffi:no-i18n (:file "test-i18n")
+ ))))
(defmethod perform ((o test-op) (c (eql (find-system 'clsql-tests))))
(operate 'load-op 'clsql)
;; AllegroCL 8-bit strings don't fail on reading #\no-break_space,
;; but can't represent such a character
;; CMUCL errors when trying to read #\no-break_space
- #+lispworks #\no-break-space
+ #+(and lispworks unicode) #\no-break-space
#+(or (and sbcl sb-unicode) (and allegro ics) (and clisp i18n)
(and openmcl openmcl-unicode-strings))
#\no-break_space
(in-package #:clsql-tests)
+(setq *rt-i18n*
+ '(
+
;;; The point of these two is to require proper encoding support
;;; UTF-8 for example can handle these easily.
;; I show this as a 20char string and 27 bytes in 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")
+
+))
(defvar *rt-oodml*)
(defvar *rt-syntax*)
(defvar *rt-time*)
+;; Below must be set as nil since test-i18n.lisp is not loaded on all platforms.
+(defvar *rt-i18n* nil)
(defvar *test-database-type* nil)
(defvar *test-database-underlying-type* nil)
(defun default-suites ()
"The default list of tests to run."
(append *rt-internal* *rt-connection* *rt-basic* *rt-fddl* *rt-fdml*
- *rt-ooddl* *rt-oodml* *rt-syntax* *rt-time*))
+ *rt-ooddl* *rt-oodml* *rt-syntax* *rt-time* *rt-i18n*))
(defvar *error-count* 0)