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

ui.tools-tests: fix test

db4
Eduardo Cavazos 2008-07-14 18:20:44 -05:00
parent 595b40b506
commit 18d19fec92
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/ui/tools/tools-tests.factor
View File

@ -5,12 +5,10 @@ ui.gadgets.labelled ui.gadgets.presentations
ui.gadgets.scrollers vocabs tools.test.ui ui ; ui.gadgets.scrollers vocabs tools.test.ui ui ;
IN: ui.tools.tests IN: ui.tools.tests
[ f ]
[ [
[ f ] [ <gadget> 0 <model> >>model <workspace-tabs> children>> empty?
0 <model> <gadget> [ set-gadget-model ] keep gadget set ] unit-test
<workspace-tabs> gadget-children empty?
] unit-test
] with-scope
[ ] [ <workspace> "w" set ] unit-test [ ] [ <workspace> "w" set ] unit-test
[ ] [ "w" get com-scroll-up ] unit-test [ ] [ "w" get com-scroll-up ] unit-test