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

Making collation tests not crash the UI

db4
Daniel Ehrenberg 2008-05-25 15:19:47 -05:00
parent 61209cbd3e
commit adb7db99b1
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/unicode/collation/collation-tests.factor
View File

@ -1,5 +1,6 @@
USING: io io.files splitting unicode.collation sequences kernel USING: io io.files splitting unicode.collation sequences kernel
io.encodings.utf8 math.parser math.order tools.test assocs ; io.encodings.utf8 math.parser math.order tools.test assocs
io.streams.null ;
IN: unicode.collation.tests IN: unicode.collation.tests
: parse-test ( -- strings ) : parse-test ( -- strings )
@ -14,4 +15,5 @@ IN: unicode.collation.tests
parse-test dup 2 <clumps> parse-test dup 2 <clumps>
[ string<=> +lt+ = not ] assoc-filter dup assoc-size ; [ string<=> +lt+ = not ] assoc-filter dup assoc-size ;
parse-test 2 <clumps> [ test-two ] assoc-each parse-test 2 <clumps>
[ [ test-two ] assoc-each ] with-null-writer