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

[factor.git] / basis / ui / commands / commands-tests.factor

diff --git a/basis/ui/commands/commands-tests.factor b/basis/ui/commands/commands-tests.factor
index bd1e4d4198f59b16742bdd37294bdd729bf3f5d7..48009fb7b4ec6f086b20752479a082e4f4d27743 100644 (file)
--- a/basis/ui/commands/commands-tests.factor
+++ b/basis/ui/commands/commands-tests.factor
@@ -2,19 +2,19 @@ IN: ui.commands.tests
 USING: ui.commands ui.gestures tools.test help.markup io
 io.streams.string system kernel ;
 
-[ "Press Button 2" ] [ T{ button-down f f 2 } gesture>string ] unit-test
+{ "Press Button 2" } [ T{ button-down f f 2 } gesture>string ] unit-test
 
 : com-test-1 ( -- ) ;
 
 \ com-test-1 H{ } define-command
 
-[ [ 3 com-test-1 ] ] [ 3 \ com-test-1 command-quot ] unit-test
+{ [ 3 com-test-1 ] } [ 3 \ com-test-1 command-quot ] unit-test
 
 : com-test-2 ( -- ) ;
 
 \ com-test-2 H{ { +nullary+ t } } define-command
 
-[ [ com-test-2 ] ] [ 3 \ com-test-2 command-quot ] unit-test
+{ [ com-test-2 ] } [ 3 \ com-test-2 command-quot ] unit-test
 
 SYMBOL: testing
 
@@ -44,4 +44,4 @@ os macosx? [
 
 : com-foo. ( -- ) ;
 
-[ "Foo" ] [ \ com-foo. command-name ] unit-test
+{ "Foo" } [ \ com-foo. command-name ] unit-test