factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test

[factor.git] / basis / unicode / breaks / breaks-tests.factor

diff --git a/basis/unicode/breaks/breaks-tests.factor b/basis/unicode/breaks/breaks-tests.factor
index a3acaf3c4ff06b5e36eaa6d187747244a0b62af4..6de334cc5b2afd6511b6a0be66eac7a038033af7 100644 (file)
--- a/basis/unicode/breaks/breaks-tests.factor
+++ b/basis/unicode/breaks/breaks-tests.factor
@@ -3,19 +3,19 @@ unicode.categories io.pathnames io.encodings.utf8 io.files
 strings quotations math.parser locals ;
 IN: unicode.breaks.tests
 
-[ "\u001112\u001161\u0011abA\u000300a\r\r\n" ]
+{ "\u001112\u001161\u0011abA\u000300a\r\r\n" }
 [ "\r\n\raA\u000300\u001112\u001161\u0011ab" string-reverse ] unit-test
-[ "dcba" ] [ "abcd" string-reverse ] unit-test
-[ 3 ] [ "\u001112\u001161\u0011abA\u000300a"
+{ "dcba" } [ "abcd" string-reverse ] unit-test
+{ 3 } [ "\u001112\u001161\u0011abA\u000300a"
         dup last-grapheme head last-grapheme ] unit-test
 
-[ 3 ] [ 2 "hello" first-grapheme-from ] unit-test
-[ 1 ] [ 2 "hello" last-grapheme-from ] unit-test
+{ 3 } [ 2 "hello" first-grapheme-from ] unit-test
+{ 1 } [ 2 "hello" last-grapheme-from ] unit-test
 
-[ 4 ] [ 2 "what am I saying" first-word-from ] unit-test
-[ 0 ] [ 2 "what am I saying" last-word-from ] unit-test
-[ 16 ] [ 11 "what am I saying" first-word-from ] unit-test
-[ 10 ] [ 11 "what am I saying" last-word-from ] unit-test
+{ 4 } [ 2 "what am I saying" first-word-from ] unit-test
+{ 0 } [ 2 "what am I saying" last-word-from ] unit-test
+{ 16 } [ 11 "what am I saying" first-word-from ] unit-test
+{ 10 } [ 11 "what am I saying" last-word-from ] unit-test
 
 : grapheme-break-test ( -- filename )
     "vocab:unicode/breaks/GraphemeBreakTest.txt" ;
@@ -51,4 +51,4 @@ IN: unicode.breaks.tests
 grapheme-break-test parse-test-file [ >graphemes ] test
 word-break-test parse-test-file [ >words ] test
 
-[ { t f t t f t } ] [ 6 iota [ "as df" word-break-at? ] map ] unit-test
+{ { t f t t f t } } [ 6 iota [ "as df" word-break-at? ] map ] unit-test