31 lines
705 B
Factor
31 lines
705 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+ depends-on ] unit-test
|
||
|
|
|
||
|
|
[ H{ { a +called+ } } ] [
|
||
|
|
[ a +called+ depends-on ] computing-dependencies
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ H{ { a +called+ } { b +inlined+ } } ] [
|
||
|
|
[
|
||
|
|
a +called+ depends-on b +inlined+ depends-on
|
||
|
|
] computing-dependencies
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ H{ { a +inlined+ } { b +inlined+ } } ] [
|
||
|
|
[
|
||
|
|
a +inlined+ depends-on
|
||
|
|
a +called+ depends-on
|
||
|
|
b +inlined+ depends-on
|
||
|
|
] computing-dependencies
|
||
|
|
] unit-test
|