From d0895e12b8275044532ce9a6041b91043cd69d4a Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Sat, 18 May 2013 10:54:12 +0100 Subject: [PATCH] actually run Part3 of Unicode Normalization tests --- tests/unicode-normalization.impure.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/tests/unicode-normalization.impure.lisp b/tests/unicode-normalization.impure.lisp index 29b7ff2..e930440 100644 --- a/tests/unicode-normalization.impure.lisp +++ b/tests/unicode-normalization.impure.lisp @@ -111,6 +111,9 @@ (do ((line (read-line s) (read-line s))) ((char= #\# (char line 0)) (assert (char= #\# (char (read-line s) 0))) - (assert (null (read-line s nil nil)))))))) + (assert (null (read-line s nil nil)))) + (destructuring-bind (c1 c2 c3 c4 c5) + (parse-one-line line) + (test-line c1 c2 c3 c4 c5)))))) (test-normalization) -- 1.7.10.4