diff --git a/basis/unicode/collation/collation-tests.factor b/basis/unicode/collation/collation-tests.factor index 47fa805bfe..32b3d6d19a 100644 --- a/basis/unicode/collation/collation-tests.factor +++ b/basis/unicode/collation/collation-tests.factor @@ -47,12 +47,12 @@ IN: unicode.collation.tests [ first2 dupd calculate-collation 3array ] map [ 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 - 2 clump [ length ] keep + 2 clump [ string<=> { +lt+ +eq+ } member? ] assoc-reject ] unit-test diff --git a/basis/unicode/normalize/normalize-tests.factor b/basis/unicode/normalize/normalize-tests.factor index 9d5eaf1516..c2b38692ae 100644 --- a/basis/unicode/normalize/normalize-tests.factor +++ b/basis/unicode/normalize/normalize-tests.factor @@ -45,8 +45,8 @@ IN: unicode.normalize.tests ] with all? ] assoc-all? ; -{ 18746 { } } [ - parse-normalization-tests [ length ] keep [ +{ { } } [ + parse-normalization-tests [ { [ { { 2 { 1 2 3 } } { 4 { 4 5 } } } [ nfc ] check-normalization-test? ] [ { { 3 { 1 2 3 } } { 5 { 4 5 } } } [ nfd ] check-normalization-test? ]