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

[factor.git] / basis / ui / gadgets / editors / editors-tests.factor

diff --git a/basis/ui/gadgets/editors/editors-tests.factor b/basis/ui/gadgets/editors/editors-tests.factor
index fa397731b4e70ceb58f29572176f71b343f21618..630a6d547aeb3497e17c5d500d6124d4e4d9ec58 100644 (file)
--- a/basis/ui/gadgets/editors/editors-tests.factor
+++ b/basis/ui/gadgets/editors/editors-tests.factor
@@ -5,7 +5,7 @@ ui.gadgets.debug models documents.elements ui.gadgets.scrollers
 ui.gadgets.line-support sequences ;
 IN: ui.gadgets.editors.tests
 
-{ "foo bar" } [
+[ "foo bar" ] [
     <editor> "editor" set
     "editor" get [
         "foo bar" "editor" get set-editor-string
@@ -14,7 +14,7 @@ IN: ui.gadgets.editors.tests
     ] with-grafted-gadget
 ] unit-test
 
-{ "baz quux" } [
+[ "baz quux" ] [
     <editor> "editor" set
     "editor" get [
         "foo bar\nbaz quux" "editor" get set-editor-string
@@ -23,7 +23,7 @@ IN: ui.gadgets.editors.tests
     ] with-grafted-gadget
 ] unit-test
 
-{ } [
+[ ] [
     <editor> "editor" set
     "editor" get [
         "foo bar\nbaz quux" "editor" get set-editor-string
@@ -32,7 +32,7 @@ IN: ui.gadgets.editors.tests
     ] with-grafted-gadget
 ] unit-test
 
-{ "bar" } [
+[ "bar" ] [
     <editor> "editor" set
     "editor" get [
         "bar\nbaz quux" "editor" get set-editor-string
@@ -48,20 +48,20 @@ IN: ui.gadgets.editors.tests
     [ "hello" ] [ "field" get field-model>> value>> ] unit-test
 ] with-grafted-gadget
 
-{ "Hello world." } [ "Hello    \n    world." join-lines ] unit-test
-{ "  Hello world.  " } [ "  Hello    \n    world.  " join-lines ] unit-test
-{ "  Hello world. Goodbye." } [ "  Hello    \n    world.  \n  Goodbye." join-lines ] unit-test
+[ "Hello world." ] [ "Hello    \n    world." join-lines ] unit-test
+[ "  Hello world.  " ] [ "  Hello    \n    world.  " join-lines ] unit-test
+[ "  Hello world. Goodbye." ] [ "  Hello    \n    world.  \n  Goodbye." join-lines ] unit-test
 
-{ } [ <editor> com-join-lines ] unit-test
-{ } [ <editor> "A" over set-editor-string com-join-lines ] unit-test
-{ "A B" } [ <editor> "A\nB" over set-editor-string [ com-join-lines ] [ editor-string ] bi ] unit-test
-{ "A B\nC\nD" } [ <editor> "A\nB\nC\nD" over set-editor-string { 0 0 } over set-caret dup mark>caret [ com-join-lines ] [ editor-string ] bi ] unit-test
-{ "A\nB C\nD" } [ <editor> "A\nB\nC\nD" over set-editor-string { 1 0 } over set-caret dup mark>caret [ com-join-lines ] [ editor-string ] bi ] unit-test
-{ "A\nB\nC D" } [ <editor> "A\nB\nC\nD" over set-editor-string { 2 0 } over set-caret dup mark>caret [ com-join-lines ] [ editor-string ] bi ] unit-test
+[ ] [ <editor> com-join-lines ] unit-test
+[ ] [ <editor> "A" over set-editor-string com-join-lines ] unit-test
+[ "A B" ] [ <editor> "A\nB" over set-editor-string [ com-join-lines ] [ editor-string ] bi ] unit-test
+[ "A B\nC\nD" ] [ <editor> "A\nB\nC\nD" over set-editor-string { 0 0 } over set-caret dup mark>caret [ com-join-lines ] [ editor-string ] bi ] unit-test
+[ "A\nB C\nD" ] [ <editor> "A\nB\nC\nD" over set-editor-string { 1 0 } over set-caret dup mark>caret [ com-join-lines ] [ editor-string ] bi ] unit-test
+[ "A\nB\nC D" ] [ <editor> "A\nB\nC\nD" over set-editor-string { 2 0 } over set-caret dup mark>caret [ com-join-lines ] [ editor-string ] bi ] unit-test
 
-{ 2 } [ <editor> 20 >>min-rows 20 >>min-cols pref-viewport-dim length ] unit-test
+[ 2 ] [ <editor> 20 >>min-rows 20 >>min-cols pref-viewport-dim length ] unit-test
 
-{ 20 } [
+[ 20 ] [
     <editor> 20 >>min-rows 20 >>min-cols
     dup pref-viewport-dim >>dim
     visible-lines