factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test

[factor.git] / basis / ui / tools / listener / listener-tests.factor

diff --git a/basis/ui/tools/listener/listener-tests.factor b/basis/ui/tools/listener/listener-tests.factor
index 54094f9f9657f90276c4a860939654badadb998f..4e1c583eb6f3a331fff93c7fb75091ec3ff4f019 100644 (file)
--- a/basis/ui/tools/listener/listener-tests.factor
+++ b/basis/ui/tools/listener/listener-tests.factor
@@ -101,63 +101,63 @@ IN: ui.tools.listener.tests
 ] with-interactive-vocabs
 
 ! Hang
-[ ] [ <interactor> <pane> <pane-stream> >>output "interactor" set ] unit-test
+{ } [ <interactor> <pane> <pane-stream> >>output "interactor" set ] unit-test
 
-[ ] [ [ "interactor" get stream-read-quot drop ] "A" spawn drop ] unit-test
+{ } [ [ "interactor" get stream-read-quot drop ] "A" spawn drop ] unit-test
 
-[ ] [ [ "interactor" get stream-read-quot drop ] "B" spawn drop ] unit-test
+{ } [ [ "interactor" get stream-read-quot drop ] "B" spawn drop ] unit-test
 
-[ ] [ 1 seconds sleep ] unit-test
+{ } [ 1 seconds sleep ] unit-test
 
-[ ] [ "interactor" get interactor-eof ] unit-test
+{ } [ "interactor" get interactor-eof ] unit-test
 
-[ ] [ <interactor> <pane> <pane-stream> >>output "interactor" set ] unit-test
+{ } [ <interactor> <pane> <pane-stream> >>output "interactor" set ] unit-test
 
 CONSTANT: text "Hello world.\nThis is a test."
 
-[ ] [ text "interactor" get set-editor-string ] unit-test
+{ } [ text "interactor" get set-editor-string ] unit-test
 
-[ ] [ <promise> "promise" set ] unit-test
+{ } [ <promise> "promise" set ] unit-test
 
-[ ] [
+{ } [
     [
         "interactor" get register-self
         "interactor" get stream-contents "promise" get fulfill
     ] in-thread
 ] unit-test
 
-[ ] [ 100 milliseconds sleep ] unit-test
+{ } [ 100 milliseconds sleep ] unit-test
 
-[ ] [ "interactor" get evaluate-input ] unit-test
+{ } [ "interactor" get evaluate-input ] unit-test
 
-[ ] [ 100 milliseconds sleep ] unit-test
+{ } [ 100 milliseconds sleep ] unit-test
 
-[ ] [ "interactor" get interactor-eof ] unit-test
+{ } [ "interactor" get interactor-eof ] unit-test
 
-[ t ] [ "promise" get 2 seconds ?promise-timeout text = ] unit-test
+{ t } [ "promise" get 2 seconds ?promise-timeout text = ] unit-test
 
-[ ] [ <interactor> <pane> <pane-stream> >>output "interactor" set ] unit-test
+{ } [ <interactor> <pane> <pane-stream> >>output "interactor" set ] unit-test
 
-[ ] [ text "interactor" get set-editor-string ] unit-test
+{ } [ text "interactor" get set-editor-string ] unit-test
 
-[ ] [ <promise> "promise" set ] unit-test
+{ } [ <promise> "promise" set ] unit-test
 
-[ ] [
+{ } [
     [
         "interactor" get register-self
         "interactor" get stream-read1 "promise" get fulfill
     ] in-thread
 ] unit-test
 
-[ ] [ 100 milliseconds sleep ] unit-test
+{ } [ 100 milliseconds sleep ] unit-test
 
-[ ] [ "interactor" get evaluate-input ] unit-test
+{ } [ "interactor" get evaluate-input ] unit-test
 
-[ CHAR: H ] [ "promise" get 2 seconds ?promise-timeout ] unit-test
+{ CHAR: H } [ "promise" get 2 seconds ?promise-timeout ] unit-test
 
-[ ] [ <listener-gadget> [ ] with-grafted-gadget ] unit-test
+{ } [ <listener-gadget> [ ] with-grafted-gadget ] unit-test
 
-[ ] [ <listener-gadget> "listener" set ] unit-test
+{ } [ <listener-gadget> "listener" set ] unit-test
 
 "listener" get [
     <interactor> <pane> <pane-stream> >>output "i" set
@@ -193,8 +193,8 @@ CONSTANT: text "Hello world.\nThis is a test."
     [ ] [ "listener" get com-end ] unit-test
 ] with-grafted-gadget
 
-[ ] [ \ + <interactor> manifest>> use-if-necessary ] unit-test
+{ } [ \ + <interactor> manifest>> use-if-necessary ] unit-test
 
-[ ] [ <listener-gadget> "l" set ] unit-test
-[ ] [ "l" get com-scroll-up ] unit-test
-[ ] [ "l" get com-scroll-down ] unit-test
+{ } [ <listener-gadget> "l" set ] unit-test
+{ } [ "l" get com-scroll-up ] unit-test
+{ } [ "l" get com-scroll-down ] unit-test