31 lines
697 B
Factor
31 lines
697 B
Factor
IN: inference.state.tests
|
|
USING: tools.test inference.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
|