31 lines
813 B
Factor
31 lines
813 B
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
|