+;;;; This software is part of the SBCL system. See the README file for
+;;;; more information.
+;;;;
+;;;; While most of SBCL is derived from the CMU CL system, the test
+;;;; files (like this one) were written from scratch after the fork
+;;;; from CMU CL.
+;;;;
+;;;; This software is in the public domain and is provided with
+;;;; absolutely no warranty. See the COPYING and CREDITS files for
+;;;; more information.
+
+;;; KLUDGE: eventually we will export NORMALIZE-STRING from somewhere.
+;;; Until we do, import it here so we can test it without putting ::
+;;; everywhere.
(import 'sb-impl::normalize-string)
(defun parse-one-line (line)
(defun test-line (c1 c2 c3 c4 c5)
;; NFC
- #+nil
(assert-all-string= c2
(normalize-string c1 :nfc)
(normalize-string c2 :nfc)
(normalize-string c3 :nfc))
- #+nil
(assert-all-string= c4
(normalize-string c4 :nfc)
(normalize-string c5 :nfc))
(normalize-string c5 :nfd))
;; NFKC
- #+nil
(assert-all-string= c4
(normalize-string c1 :nfkc)
(normalize-string c2 :nfkc)
(defun test-no-normalization (string)
(assert-all-string= string
- #+nil
(normalize-string string :nfc)
(normalize-string string :nfd)
- #+nil
(normalize-string string :nfkc)
(normalize-string string :nfkd)))