29 lines
711 B
Factor
29 lines
711 B
Factor
IN: ui.operations.tests
|
|
USING: ui.operations ui.commands prettyprint kernel namespaces
|
|
tools.test ui.gadgets ui.gadgets.editors parser io
|
|
io.streams.string math help help.markup accessors ;
|
|
|
|
: my-pprint ( obj -- ) pprint ;
|
|
|
|
[ drop t ] \ my-pprint [ ] f operation boa "op" set
|
|
|
|
{ [ 3 my-pprint ] } [
|
|
3 "op" get command>> command-quot
|
|
] unit-test
|
|
|
|
{ "3" } [ [ 3 "op" get invoke-command ] with-string-writer ] unit-test
|
|
|
|
[ drop t ] \ my-pprint [ editor-string ] f operation boa
|
|
"op" set
|
|
|
|
{ "\"4\"" } [
|
|
[
|
|
"4" <editor> [ set-editor-string ] keep
|
|
"op" get invoke-command
|
|
] with-string-writer
|
|
] unit-test
|
|
|
|
{ } [
|
|
[ { $operations \ + } print-element ] with-string-writer drop
|
|
] unit-test
|