Revert "factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring...

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

diff --git a/basis/io/ports/ports-tests.factor b/basis/io/ports/ports-tests.factor
index 64a353ad9ca4db1d6a8ed321a3d0e12fdd078493..ae63b650d97505c87cfa5deed9026cc230e1a99e 100644 (file)
--- a/basis/io/ports/ports-tests.factor
+++ b/basis/io/ports/ports-tests.factor
@@ -8,7 +8,7 @@ IN: io.ports.tests
 ! Make sure that writing malloced storage to a file works, and
 ! also make sure that writes larger than the buffer size work
 
-{ } [
+[ ] [
     "test.txt" temp-file binary [
         [
             100,000 iota
@@ -18,19 +18,19 @@ IN: io.ports.tests
     ] with-file-writer
 ] unit-test
 
-{ t } [
+[ t ] [
     "test.txt" temp-file binary [
         100,000 4 * read int cast-array 100,000 iota sequence=
     ] with-file-reader
 ] unit-test
 
-{ } [ "test.txt" temp-file delete-file ] unit-test
+[ ] [ "test.txt" temp-file delete-file ] unit-test
 
 ! Getting the stream-element-type of an output-port was broken
-{ +byte+ } [ binary <pipe> [ stream-element-type ] with-disposal ] unit-test
-{ +byte+ } [ binary <pipe> [ out>> stream-element-type ] with-disposal ] unit-test
-{ +character+ } [ ascii <pipe> [ stream-element-type ] with-disposal ] unit-test
-{ +character+ } [ ascii <pipe> [ out>> stream-element-type ] with-disposal ] unit-test
+[ +byte+ ] [ binary <pipe> [ stream-element-type ] with-disposal ] unit-test
+[ +byte+ ] [ binary <pipe> [ out>> stream-element-type ] with-disposal ] unit-test
+[ +character+ ] [ ascii <pipe> [ stream-element-type ] with-disposal ] unit-test
+[ +character+ ] [ ascii <pipe> [ out>> stream-element-type ] with-disposal ] unit-test
 
 ! Issue #1256 regression test
 ! Port length would be zero before data is received