From b67b1c0287fbb84bc32e04932559738778763fc1 Mon Sep 17 00:00:00 2001 From: John Benediktsson 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? ]