1 USING: kernel tools.test namespaces sequences
2 compiler.tree.escape-analysis.recursive
3 compiler.tree.escape-analysis.allocations ;
4 IN: compiler.tree.escape-analysis.recursive.tests
6 H{ } clone allocations set
7 <escaping-values> escaping-values set
9 [ ] [ 8 [ introduce-value ] each ] unit-test
11 [ ] [ { 1 2 } 3 record-allocation ] unit-test
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