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

[factor.git] / basis / io / crlf / crlf-tests.factor

diff --git a/basis/io/crlf/crlf-tests.factor b/basis/io/crlf/crlf-tests.factor
index 821d3a79312f86a36d28d9525509c72e3c01a542..2326f36c2b1df52b41d94f35bcc0ce3af5773bb6 100644 (file)
--- a/basis/io/crlf/crlf-tests.factor
+++ b/basis/io/crlf/crlf-tests.factor
@@ -1,16 +1,16 @@
 IN: io.crlf.tests
 USING: io.crlf tools.test io.streams.string io ;
 
-[ "Hello, world." ] [ "Hello, world." [ read-crlf ] with-string-reader ] unit-test
-[ "Hello, world." ] [ "Hello, world.\r\n" [ read-crlf ] with-string-reader ] unit-test
+{ "Hello, world." } [ "Hello, world." [ read-crlf ] with-string-reader ] unit-test
+{ "Hello, world." } [ "Hello, world.\r\n" [ read-crlf ] with-string-reader ] unit-test
 [ "Hello, world.\r" [ read-crlf ] with-string-reader ] must-fail
-[ f ] [ "" [ read-crlf ] with-string-reader ] unit-test
-[ "" ] [ "\r\n" [ read-crlf ] with-string-reader ] unit-test
+{ f } [ "" [ read-crlf ] with-string-reader ] unit-test
+{ "" } [ "\r\n" [ read-crlf ] with-string-reader ] unit-test
 
 [ "foo\r" [ read-?crlf ] with-string-reader ] must-fail
-[ f ] [ "" [ read-?crlf ] with-string-reader ] unit-test
-[ "" ] [ "\n" [ read-?crlf ] with-string-reader ] unit-test
-[ "foo" ] [ "foo\n" [ read-?crlf ] with-string-reader ] unit-test
+{ f } [ "" [ read-?crlf ] with-string-reader ] unit-test
+{ "" } [ "\n" [ read-?crlf ] with-string-reader ] unit-test
+{ "foo" } [ "foo\n" [ read-?crlf ] with-string-reader ] unit-test
 
-[ "foo\nbar" ] [ "foo\n\rbar" crlf>lf ] unit-test
-[ "foo\r\nbar" ] [ "foo\nbar" lf>crlf ] unit-test
+{ "foo\nbar" } [ "foo\n\rbar" crlf>lf ] unit-test
+{ "foo\r\nbar" } [ "foo\nbar" lf>crlf ] unit-test