From b67b1c0287fbb84bc32e04932559738778763fc1 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sun, 10 Jul 2016 18:18:41 -0700
Subject: [PATCH] unicode: add the number of tests...

...so we don't accidentally stop testing things that should be tested.
---
 basis/unicode/collation/collation-tests.factor | 5 +++--
 basis/unicode/normalize/normalize-tests.factor | 4 ++--
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/basis/unicode/collation/collation-tests.factor b/basis/unicode/collation/collation-tests.factor
index 14f597bac6..cc6238657b 100644
--- a/basis/unicode/collation/collation-tests.factor
+++ b/basis/unicode/collation/collation-tests.factor
@@ -16,9 +16,10 @@ IN: unicode.collation.tests
 [ { "HELLO" "goodbye" "good bye" "hello" } sort-strings ]
 unit-test
 
-{ { } } [
+{ 152853 { } } [
     "vocab:unicode/collation/CollationTest_SHIFTED.txt"
     utf8 file-lines 5 tail
     [ ";" split1 drop " " split [ hex> ] "" map-as ] map
-    2 clump [ string<=> +lt+ eq? ] assoc-reject
+    2 clump [ length ] keep
+    [ string<=> +lt+ eq? ] assoc-reject
 ] unit-test
diff --git a/basis/unicode/normalize/normalize-tests.factor b/basis/unicode/normalize/normalize-tests.factor
index f276756b52..f71a7645f4 100644
--- a/basis/unicode/normalize/normalize-tests.factor
+++ b/basis/unicode/normalize/normalize-tests.factor
@@ -27,10 +27,10 @@ IN: unicode.normalize.tests
         ] with all?
     ] assoc-all? ;
 
-{ { } } [
+{ 17768 { } } [
     "vocab:unicode/normalize/NormalizationTest.txt" data
     [ 5 head [ " " split [ hex> ] "" map-as ] map ] map
-    [
+    [ length ] keep [
         {
             [ { { 2 { 1 2 3 } } { 4 { 4 5 } } } [ nfc ] check? ]
             [ { { 3 { 1 2 3 } } { 5 { 4 5 } } } [ nfd ] check? ]