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 ]
|
[ { "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
|
||||||
|
|
|
@ -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? ]
|
||||||
|
|
Loading…
Reference in New Issue