From be974ede67a3d7f8a6e7aa200ad042d3ac644cff Mon Sep 17 00:00:00 2001 From: Lutz Euler Date: Sat, 25 May 2013 16:39:28 +0200 Subject: [PATCH] Skip unicode normalization tests on non-unicode builds. This was accidentally missed when the tests were introduced. --- tests/unicode-normalization.impure.lisp | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/tests/unicode-normalization.impure.lisp b/tests/unicode-normalization.impure.lisp index e62fd93..49aa69a 100644 --- a/tests/unicode-normalization.impure.lisp +++ b/tests/unicode-normalization.impure.lisp @@ -79,7 +79,8 @@ (assert (string= "@Part0" line :end2 6)) (assert (char= #\# (char (read-line s) 0))))) ;; Part0: specific cases - (with-test (:name (:unicode-normalization :part0)) + (with-test (:name (:unicode-normalization :part0) + :skipped-on '(not :sb-unicode)) (do ((line (read-line s) (read-line s))) ((char= #\# (char line 0)) (assert (string= "@Part1" (read-line s) :end2 6)) @@ -90,7 +91,8 @@ (test-line c1 c2 c3 c4 c5)))) ;; Part1: single characters. (Extra work to check for conformance ;; on unlisted entries) - (with-test (:name (:unicode-normalization :part1)) + (with-test (:name (:unicode-normalization :part1) + :skipped-on '(not :sb-unicode)) (do ((line (read-line s) (read-line s)) (code 0)) ((char= #\# (char line 0)) @@ -107,7 +109,8 @@ (setf code (1+ c))) (test-no-normalization (string (code-char code))))))) ;; Part2: Canonical Order Test - (with-test (:name (:unicode-normalization :part2)) + (with-test (:name (:unicode-normalization :part2) + :skipped-on '(not :sb-unicode)) (do ((line (read-line s) (read-line s))) ((char= #\# (char line 0)) (assert (string= "@Part3" (read-line s) :end2 6)) @@ -116,7 +119,8 @@ (parse-one-line line) (test-line c1 c2 c3 c4 c5)))) ;; Part3: PRI #29 Test - (with-test (:name (:unicode-normalization :part3)) + (with-test (:name (:unicode-normalization :part3) + :skipped-on '(not :sb-unicode)) (do ((line (read-line s) (read-line s))) ((char= #\# (char line 0)) (assert (char= #\# (char (read-line s) 0))) -- 1.7.10.4