From: Christophe Rhodes <csr21@cantab.net>
Date: Sat, 18 May 2013 09:54:12 +0000 (+0100)
Subject: actually run Part3 of Unicode Normalization tests
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=d0895e12b8275044532ce9a6041b91043cd69d4a;p=sbcl.git

actually run Part3 of Unicode Normalization tests
---

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)