ui.tools.listener.tests: fix tests, manifest needs to be set and vocab used
parent
436cb76dd3
commit
5f6ec2ba8b
|
@ -1,7 +1,8 @@
|
||||||
USING: accessors arrays calendar concurrency.promises continuations
|
USING: accessors arrays calendar concurrency.promises continuations
|
||||||
documents io kernel lexer listener math namespaces parser quotations
|
documents io kernel lexer listener math namespaces parser quotations
|
||||||
sequences threads tools.test ui.gadgets.debug ui.gadgets.editors
|
sequences threads tools.test ui.gadgets.debug ui.gadgets.editors
|
||||||
ui.gadgets.panes ui.gestures ui.tools.common ui.tools.listener ;
|
ui.gadgets.panes ui.gestures ui.tools.common ui.tools.listener
|
||||||
|
vocabs.parser ;
|
||||||
IN: ui.tools.listener.tests
|
IN: ui.tools.listener.tests
|
||||||
|
|
||||||
[
|
[
|
||||||
|
@ -210,16 +211,16 @@ CONSTANT: text "Hello world.\nThis is a test."
|
||||||
{ [ 3 4 + ] } [
|
{ [ 3 4 + ] } [
|
||||||
<listener-gadget> input>> [ register-self ] keep
|
<listener-gadget> input>> [ register-self ] keep
|
||||||
[ { "3 4 +" } swap interactor-continue ] keep
|
[ { "3 4 +" } swap interactor-continue ] keep
|
||||||
stream-read-quot
|
[ "math" use-vocab stream-read-quot ] with-manifest
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
! try-parse
|
! try-parse
|
||||||
{ t } [
|
{ [ sq ] t t } [
|
||||||
{ "goga" } try-parse
|
[
|
||||||
[ callable? ] [ length 2 = ] [ first lexer-error? ] tri and and
|
"math" use-vocab
|
||||||
] unit-test
|
{ "sq" } try-parse
|
||||||
|
{ "[" } try-parse first lexer-error?
|
||||||
{ [ sq ] t } [
|
{ "goga" } try-parse
|
||||||
{ "sq" } try-parse
|
[ callable? ] [ length 2 = ] [ first lexer-error? ] tri and and
|
||||||
{ "[" } try-parse first lexer-error?
|
] with-manifest
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
Loading…
Reference in New Issue