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

[factor.git] / extra / morse / morse-tests.factor

diff --git a/extra/morse/morse-tests.factor b/extra/morse/morse-tests.factor
index 95b837a9eb168af98d668d17caac8c71e932f0eb..2dad7f997cad7395ec1b417462b8126c2fab0380 100644 (file)
--- a/extra/morse/morse-tests.factor
+++ b/extra/morse/morse-tests.factor
@@ -3,38 +3,38 @@
 USING: arrays morse strings tools.test ;
 IN: morse.tests
 
-{ "?" } [ CHAR: \\ ch>morse ] unit-test
-{ "..." } [ CHAR: s ch>morse ] unit-test
-{ CHAR: s } [ "..." morse>ch ] unit-test
-{ CHAR: \s } [ "..--..--.." morse>ch ] unit-test
-{ "-- --- .-. ... . / -.-. --- -.. ." } [ "morse code" >morse ] unit-test
-{ "morse code" } [ "-- --- .-. ... . / -.-. --- -.. ." morse> ] unit-test
-{ "hello, world!" } [ "Hello, World!" >morse morse> ] unit-test
-{ ".- -... -.-." } [ "abc" >morse ] unit-test
+[ "?" ] [ CHAR: \\ ch>morse ] unit-test
+[ "..." ] [ CHAR: s ch>morse ] unit-test
+[ CHAR: s ] [ "..." morse>ch ] unit-test
+[ CHAR: \s ] [ "..--..--.." morse>ch ] unit-test
+[ "-- --- .-. ... . / -.-. --- -.. ." ] [ "morse code" >morse ] unit-test
+[ "morse code" ] [ "-- --- .-. ... . / -.-. --- -.. ." morse> ] unit-test
+[ "hello, world!" ] [ "Hello, World!" >morse morse> ] unit-test
+[ ".- -... -.-." ] [ "abc" >morse ] unit-test
 
-{ "abc" } [ ".- -... -.-." morse> ] unit-test
+[ "abc" ] [ ".- -... -.-." morse> ] unit-test
 
-{ "morse code" } [
+[ "morse code" ] [
     [MORSE
         -- --- .-. ... . /
         -.-. --- -.. .
     MORSE] >morse morse> ] unit-test
 
-{ "morse code 123" } [
+[ "morse code 123" ] [
     [MORSE
         __ ___ ._. ... . /
         _._. ___ _.. . /
         .____ ..___ ...__
     MORSE] ] unit-test
 
-{ [MORSE
+[ [MORSE
       -- --- .-. ... . /
       -.-. --- -.. .
-  MORSE] } [
+  MORSE] ] [
     "morse code" >morse morse>
 ] unit-test
 
-{ "factor rocks!" } [
+[ "factor rocks!" ] [
     [MORSE
       ..-. .- -.-. - --- .-. /
       .-. --- -.-. -.- ... -.-.--