factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring tool!

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

diff --git a/basis/ui/gadgets/panes/panes-tests.factor b/basis/ui/gadgets/panes/panes-tests.factor
index 0eecd2b56a5eed04cc20d6df63962d17edac4115..878f2e9180d8d29e03ec61ea4f970412c28669f0 100644 (file)
--- a/basis/ui/gadgets/panes/panes-tests.factor
+++ b/basis/ui/gadgets/panes/panes-tests.factor
@@ -7,29 +7,29 @@ IN: ui.gadgets.panes.tests
 
 : #children ( -- n ) "pane" get children>> length ;
 
-[ ] [ <pane> "pane" set ] unit-test
+{ } [ <pane> "pane" set ] unit-test
 
-[ ] [ #children "num-children" set ] unit-test
+{ } [ #children "num-children" set ] unit-test
 
-[ ] [
+{ } [
     "pane" get <pane-stream> [ 100 [ . ] each-integer ] with-output-stream*
 ] unit-test
 
-[ t ] [ #children "num-children" get = ] unit-test
+{ t } [ #children "num-children" get = ] unit-test
 
 : test-gadget-text ( quot -- ? )
     '[ _ call( -- ) ]
     [ make-pane gadget-text dup print "======" print ]
     [ with-string-writer dup print ] bi = ;
 
-[ t ] [ [ "hello" write ] test-gadget-text ] unit-test
-[ t ] [ [ "hello" pprint ] test-gadget-text ] unit-test
-[ t ] [
+{ t } [ [ "hello" write ] test-gadget-text ] unit-test
+{ t } [ [ "hello" pprint ] test-gadget-text ] unit-test
+{ t } [
     [
         H{ { wrap-margin 100 } } [ "hello" pprint ] with-nesting
     ] test-gadget-text
 ] unit-test
-[ t ] [
+{ t } [
     [
         H{ { wrap-margin 100 } } [
             H{ } [
@@ -38,12 +38,12 @@ IN: ui.gadgets.panes.tests
         ] with-nesting
     ] test-gadget-text
 ] unit-test
-[ t ] [ [ [ 1 2 3 ] pprint ] test-gadget-text ] unit-test
-[ t ] [ [ \ + describe ] test-gadget-text ] unit-test
-[ t ] [ [ \ = see ] test-gadget-text ] unit-test
-[ t ] [ [ \ = print-topic ] test-gadget-text ] unit-test
+{ t } [ [ [ 1 2 3 ] pprint ] test-gadget-text ] unit-test
+{ t } [ [ \ + describe ] test-gadget-text ] unit-test
+{ t } [ [ \ = see ] test-gadget-text ] unit-test
+{ t } [ [ \ = print-topic ] test-gadget-text ] unit-test
 
-[ t ] [
+{ t } [
     [
         title-style get [
                 "Hello world" write
@@ -52,7 +52,7 @@ IN: ui.gadgets.panes.tests
 ] unit-test
 
 
-[ t ] [
+{ t } [
     [
         title-style get [
                 "Hello world" write
@@ -60,7 +60,7 @@ IN: ui.gadgets.panes.tests
     ] test-gadget-text
 ] unit-test
 
-[ t ] [
+{ t } [
     [
         title-style get [
             title-style get [
@@ -70,7 +70,7 @@ IN: ui.gadgets.panes.tests
     ] test-gadget-text
 ] unit-test
 
-[ t ] [
+{ t } [
     [
         title-style get [
             title-style get [
@@ -80,7 +80,7 @@ IN: ui.gadgets.panes.tests
     ] test-gadget-text
 ] unit-test
 
-[ t ] [
+{ t } [
     [
         last-element off
         \ = >link $title
@@ -88,7 +88,7 @@ IN: ui.gadgets.panes.tests
     ] test-gadget-text
 ] unit-test
 
-[ t ] [
+{ t } [
     [
         last-element off
         \ = >link title-style get [
@@ -98,40 +98,40 @@ IN: ui.gadgets.panes.tests
     ] test-gadget-text
 ] unit-test
 
-[ t ] [
+{ t } [
     [ { { "a\n" } } simple-table. ] test-gadget-text
 ] unit-test
 
-[ t ] [
+{ t } [
     [ { { "a" } } simple-table. "x" write ] test-gadget-text
 ] unit-test
 
-[ t ] [
+{ t } [
     [ H{ } [ { { "a" } } simple-table. ] with-nesting "x" write ] test-gadget-text
 ] unit-test
 
 ARTICLE: "test-article-1" "This is a test article"
 "Hello world, how are you today." ;
 
-[ t ] [ [ "test-article-1" $title ] test-gadget-text ] unit-test
+{ t } [ [ "test-article-1" $title ] test-gadget-text ] unit-test
 
-[ t ] [ [ "test-article-1" print-topic ] test-gadget-text ] unit-test
+{ t } [ [ "test-article-1" print-topic ] test-gadget-text ] unit-test
 
 ARTICLE: "test-article-2" "This is a test article"
 "Hello world, how are you today."
 { $table { "a" "b" } { "c" "d" } } ;
 
-[ t ] [ [ "test-article-2" print-topic ] test-gadget-text ] unit-test
+{ t } [ [ "test-article-2" print-topic ] test-gadget-text ] unit-test
 
 <pane> [ \ = see ] with-pane
 <pane> [ \ = print-topic ] with-pane
 
-[ ] [
+{ } [
     \ = <model> [ see ] <pane-control> [ ] with-grafted-gadget
 ] unit-test
 
 : <test-pane> ( -- foo )
     <gadget> pane new-pane ;
 
-[ t ] [ <test-pane> dup input>> child? ] unit-test
-[ t ] [ <test-pane> dup last-line>> child? ] unit-test
+{ t } [ <test-pane> dup input>> child? ] unit-test
+{ t } [ <test-pane> dup last-line>> child? ] unit-test