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

Fixing unit tests

db4
Slava Pestov 2008-01-02 23:07:59 -04:00
parent 96f4f3ff40
commit 3fd5d8c40e
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/ui/operations/operations-tests.factor Normal file → Executable file
View File

@ -13,10 +13,10 @@ io.streams.string math help help.markup ;
[ "3" ] [ [ 3 "op" get invoke-command ] string-out ] unit-test
[ drop t ] \ my-pprint [ parse ] [ editor-string ] f operation construct-boa
[ drop t ] \ my-pprint [ ] [ editor-string ] f operation construct-boa
"op" set
[ "[ 4 ]" ] [
[ "\"4\"" ] [
[
"4" <editor> [ set-editor-string ] keep
"op" get invoke-command

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

@ -13,8 +13,8 @@ timers [ init-timers ] unless
[ ] [ <listener-gadget> "listener" set ] unit-test
"listener" get [
{ "kernel" } [ vocab-words ] map use associate
"listener" get listener-gadget-input set-interactor-vars
{ "kernel" } [ vocab-words ] map
"listener" get listener-gadget-input set-interactor-use
[ "dup" ] [ \ dup "listener" get word-completion-string ] unit-test
@ -22,14 +22,14 @@ timers [ init-timers ] unless
[ \ word-name "listener" get word-completion-string ] unit-test
<pane> <interactor> "i" set
H{ } "i" get set-interactor-vars
f "i" get set-interactor-use
[ t ] [ "i" get interactor? ] unit-test
[ ] [ "SYMBOL:" "i" get set-editor-string ] unit-test
[ ] [
"i" get [ "SYMBOL:" parse ] catch go-to-error
"i" get [ { "SYMBOL:" } parse-lines ] catch go-to-error
] unit-test
[ t ] [