unicode: add the number of tests...
...so we don't accidentally stop testing things that should be tested.char-rename
parent
dd4fb140b6
commit
b67b1c0287
|
@ -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
|
||||
|
|
|
@ -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? ]
|
||||
|
|
Loading…
Reference in New Issue