Fixing unit tests
parent
96f4f3ff40
commit
3fd5d8c40e
|
@ -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
|
||||
|
|
|
@ -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 ] [
|
||||
|
|
Loading…
Reference in New Issue