basis/compiler/tree/escape-analysis/recursive/recursive-tests.factor

   1 USING: kernel tools.test namespaces sequences math
   2 compiler.tree.escape-analysis.recursive
   3 compiler.tree.escape-analysis.allocations ;
   4 IN: compiler.tree.escape-analysis.recursive.tests
   5
   6 H{ } clone allocations set
   7 <escaping-values> escaping-values set
   8
   9 { } [ 8 [ introduce-value ] each-integer ] unit-test
  10
  11 { } [ { 1 2 } 3 record-allocation ] unit-test
  12
  13 { t } [ { 1 2 } { 6 7 } congruent? ] unit-test
  14 { f } [ { 3 4 } { 6 7 } congruent? ] unit-test
  15 { f } [ { 3 4 5 } { 6 7 } congruent? ] unit-test