From adb7db99b185dcccb3c187063d76f4841bf1f9e0 Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <littledan@Macintosh.local>
Date: Sun, 25 May 2008 15:19:47 -0500
Subject: [PATCH] Making collation tests not crash the UI
---
extra/unicode/collation/collation-tests.factor | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/extra/unicode/collation/collation-tests.factor b/extra/unicode/collation/collation-tests.factor
index 218b7bc570..24c4711a04 100755
--- a/extra/unicode/collation/collation-tests.factor
+++ b/extra/unicode/collation/collation-tests.factor
@@ -1,5 +1,6 @@
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
: parse-test ( -- strings )
@@ -14,4 +15,5 @@ IN: unicode.collation.tests
parse-test dup 2 <clumps>
[ 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