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

Fix listener tests

db4
Slava Pestov 2008-04-07 14:45:32 -05:00
parent 457fea23f7
commit 4180472ae9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,7 +2,7 @@ USING: continuations documents ui.tools.interactor
ui.tools.listener hashtables kernel namespaces parser sequences 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 ; threads arrays generic ;
IN: ui.tools.listener.tests IN: ui.tools.listener.tests
[ f ] [ "word" source-editor command-map empty? ] unit-test [ f ] [ "word" source-editor command-map empty? ] unit-test
@ -13,11 +13,11 @@ IN: ui.tools.listener.tests
"listener" get [ "listener" get [
[ "dup" ] [ [ "dup" ] [
\ dup "listener" get word-completion-string \ dup word-completion-string
] unit-test ] unit-test
[ "USE: slots.private slot" ] [ "equal?" ]
[ \ slot "listener" get word-completion-string ] unit-test [ \ array \ equal? method word-completion-string ] unit-test
<pane> <interactor> "i" set <pane> <interactor> "i" set