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

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

@ -1,5 +1,5 @@
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> [ ] 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
ui.gadgets.panes vocabs words tools.test.ui slots.private
threads arrays generic threads accessors listener math
calendar ;
calendar concurrency.promises io ui.tools.common ;
IN: ui.tools.listener.tests
\ <interactor> must-infer
@ -137,3 +137,16 @@ IN: ui.tools.listener.tests
] with-grafted-gadget
[ ] [ \ + <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