steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

unicode: add the number of tests... 

...so we don't accidentally stop testing things that should be tested.
char-rename
John Benediktsson 2016-07-10 18:18:41 -07:00
parent dd4fb140b6
commit b67b1c0287
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/unicode/collation/collation-tests.factor
View File

@ -16,9 +16,10 @@ IN: unicode.collation.tests
[ { "HELLO" "goodbye" "good bye" "hello" } sort-strings ] [ { "HELLO" "goodbye" "good bye" "hello" } sort-strings ]
unit-test unit-test
{ { } } [ { 152853 { } } [
"vocab:unicode/collation/CollationTest_SHIFTED.txt" "vocab:unicode/collation/CollationTest_SHIFTED.txt"
utf8 file-lines 5 tail utf8 file-lines 5 tail
[ ";" split1 drop " " split [ hex> ] "" map-as ] map [ ";" 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 ] unit-test

4
basis/unicode/normalize/normalize-tests.factor
View File

@ -27,10 +27,10 @@ IN: unicode.normalize.tests
] with all? ] with all?
] assoc-all? ; ] assoc-all? ;
{ { } } [ { 17768 { } } [
"vocab:unicode/normalize/NormalizationTest.txt" data "vocab:unicode/normalize/NormalizationTest.txt" data
[ 5 head [ " " split [ hex> ] "" map-as ] map ] map [ 5 head [ " " split [ hex> ] "" map-as ] map ] map
[ [ length ] keep [
{ {
[ { { 2 { 1 2 3 } } { 4 { 4 5 } } } [ nfc ] check? ] [ { { 2 { 1 2 3 } } { 4 { 4 5 } } } [ nfc ] check? ]
[ { { 3 { 1 2 3 } } { 5 { 4 5 } } } [ nfd ] check? ] [ { { 3 { 1 2 3 } } { 5 { 4 5 } } } [ nfd ] check? ]