unicode: add the number of tests...

...so we don't accidentally stop testing things that should be tested.

diff --git a/basis/unicode/collation/collation-tests.factor b/basis/unicode/collation/collation-tests.factor
index 14f597bac62f34f3ea4caec30ee370b008cbac39..cc6238657b65c976a69656d5f001e5328d650c73 100644 (file)
--- 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 f276756b5271290ac08d4b9fa9460da00b876261..f71a7645f40071de1924d59c74375817cee6a517 100644 (file)
--- 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? ]