factor/basis/ui/operations/operations-tests.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

\ object-operations must-infer