steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixing ui.tools unit tests

db4
Slava Pestov 2009-01-07 16:37:27 -06:00
parent 53f4bd4311
commit 3c624f670b
3 changed files with 16 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ui/tools/browser/browser-tests.factor
View File

@ -1,5 +1,5 @@
IN: ui.tools.browser.tests IN: ui.tools.browser.tests
USING: tools.test tools.test.ui ui.tools.browser ; USING: tools.test tools.test.ui ui.tools.browser math ;
\ <browser-gadget> must-infer \ <browser-gadget> must-infer
[ ] [ <browser-gadget> [ ] with-grafted-gadget ] unit-test [ ] [ \ + <browser-gadget> [ ] with-grafted-gadget ] unit-test

15
basis/ui/tools/listener/listener-tests.factor
View File

@ -3,7 +3,7 @@ ui.tools.listener hashtables kernel namespaces parser sequences
tools.test ui.commands ui.gadgets ui.gadgets.editors tools.test ui.commands ui.gadgets ui.gadgets.editors
ui.gadgets.panes vocabs words tools.test.ui slots.private ui.gadgets.panes vocabs words tools.test.ui slots.private
threads arrays generic threads accessors listener math threads arrays generic threads accessors listener math
calendar ; calendar concurrency.promises io ui.tools.common ;
IN: ui.tools.listener.tests IN: ui.tools.listener.tests
\ <interactor> must-infer \ <interactor> must-infer
@ -137,3 +137,16 @@ IN: ui.tools.listener.tests
] with-grafted-gadget ] with-grafted-gadget
[ ] [ \ + <pane> <interactor> interactor-use use-if-necessary ] unit-test [ ] [ \ + <pane> <interactor> interactor-use 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
[ ] [ "l" get hide-popup ] unit-test
[ ] [ <gadget> "l" get show-popup ] unit-test
[ ] [ "l" get hide-popup ] unit-test
[ ] [
<gadget> "l" get show-popup
<gadget> "l" get show-popup
"l" get hide-popup
] unit-test

59
basis/ui/tools/tools-tests.factor
View File

@ -1,59 +0,0 @@
USING: ui.tools ui.tools.interactor ui.tools.listener
ui.tools.search kernel models namespaces
sequences tools.test ui.gadgets ui.gadgets.buttons
ui.gadgets.labelled ui.gadgets.presentations
ui.gadgets.menus ui.gadgets.scrollers vocabs
tools.test.ui ui accessors ;
IN: ui.tools.tests
[ f ]
[
<gadget> 0 <model> >>model <workspace-tabs> children>> empty?
] unit-test
[ ] [ <workspace> "w" set ] unit-test
[ ] [ "w" get com-scroll-up ] unit-test
[ ] [ "w" get com-scroll-down ] unit-test
[ t ] [
"w" get book>> children>>
[ tool-scroller ] map sift [ scroller? ] all?
] unit-test
[ ] [ "w" get hide-popup ] unit-test
[ ] [ <gadget> "w" get show-popup ] unit-test
[ ] [ "w" get hide-popup ] unit-test
[ ] [
<gadget> "w" get show-popup
<gadget> "w" get show-popup
"w" get hide-popup
] unit-test
[ ] [ <workspace> [ ] with-grafted-gadget ] unit-test
"w" get [
[ ] [ "w" get "kernel" vocab show-vocab-words ] unit-test
[ ] [ notify-queued ] unit-test
[ ] [ "w" get popup>> content>>
list>> gadget-child "p" set ] unit-test
[ t ] [ "p" get presentation? ] unit-test
[ ] [
"p" get [ object>> ] [ dup hook>> curry ] bi
<operations-menu> gadget-child gadget-child "c" set
] unit-test
[ ] [ notify-queued ] unit-test
[ t ] [ "c" get button? ] unit-test
[ ] [
"w" get listener>> input>>
3 handle-parse-error
] unit-test
[ ] [ notify-queued ] unit-test
] with-grafted-gadget