factor/basis/stack-checker/state/state-tests.factor

IN: stack-checker.state.tests
USING: tools.test stack-checker.state words kernel namespaces
definitions ;

: computing-dependencies ( quot -- dependencies )
    H{ } clone [ dependencies rot with-variable ] keep ;
    inline

SYMBOL: a
SYMBOL: b

[ ] [ a called-dependency depends-on ] unit-test

[ H{ { a called-dependency } } ] [
    [ a called-dependency depends-on ] computing-dependencies
] unit-test

[ H{ { a called-dependency } { b inlined-dependency } } ] [
    [
        a called-dependency depends-on b inlined-dependency depends-on
    ] computing-dependencies
] unit-test

[ H{ { a inlined-dependency } { b inlined-dependency } } ] [
    [
        a inlined-dependency depends-on
        a called-dependency depends-on
        b inlined-dependency depends-on
    ] computing-dependencies
] unit-test