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

unicode.collation: Don't count the number of tests, it's irrelevant.

modern-harvey3
Doug Coleman 2019-06-09 10:37:04 -05:00
parent 24704095b7
commit add6234fd1
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -47,12 +47,12 @@ IN: unicode.collation.tests
[ first2 dupd calculate-collation 3array ] map [ first2 dupd calculate-collation 3array ] map
[ first3 sequence= nip ] reject ; [ first3 sequence= nip ] reject ;
{ 208026 { } } { { } }
[ parse-collation-test-weights [ length ] [ find-bad-collations ] bi ] unit-test [ parse-collation-test-weights find-bad-collations ] unit-test
{ 208025 { } } [ { { } } [
parse-collation-test-shifted parse-collation-test-shifted
2 clump [ length ] keep 2 clump
[ string<=> { +lt+ +eq+ } member? ] assoc-reject [ string<=> { +lt+ +eq+ } member? ] assoc-reject
] unit-test ] unit-test

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

@ -45,8 +45,8 @@ IN: unicode.normalize.tests
] with all? ] with all?
] assoc-all? ; ] assoc-all? ;
{ 18746 { } } [ { { } } [
parse-normalization-tests [ length ] keep [ parse-normalization-tests [
{ {
[ { { 2 { 1 2 3 } } { 4 { 4 5 } } } [ nfc ] check-normalization-test? ] [ { { 2 { 1 2 3 } } { 4 { 4 5 } } } [ nfc ] check-normalization-test? ]
[ { { 3 { 1 2 3 } } { 5 { 4 5 } } } [ nfd ] check-normalization-test? ] [ { { 3 { 1 2 3 } } { 5 { 4 5 } } } [ nfd ] check-normalization-test? ]