core/inference/state/state-tests.factor

   1 IN: inference.state.tests
   2 USING: tools.test inference.state words kernel namespaces ;
   3
   4 : computing-dependencies ( quot -- dependencies )
   5     H{ } clone [ dependencies rot with-variable ] keep ;
   6     inline
   7
   8 SYMBOL: a
   9 SYMBOL: b
  10
  11 [ ] [ a +called+ depends-on ] unit-test
  12
  13 [ H{ { a +called+ } } ] [
  14     [ a +called+ depends-on ] computing-dependencies
  15 ] unit-test
  16
  17 [ H{ { a +called+ } { b +inlined+ } } ] [
  18     [
  19         a +called+ depends-on b +inlined+ depends-on
  20     ] computing-dependencies
  21 ] unit-test
  22
  23 [ H{ { a +inlined+ } { b +inlined+ } } ] [
  24     [
  25         a +inlined+ depends-on
  26         a +called+ depends-on
  27         b +inlined+ depends-on
  28     ] computing-dependencies
  29 ] unit-test