unicode: add the number of tests...

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

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

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? ]