2010-01-14 10:10:13 -05:00
|
|
|
USING: kernel tools.test namespaces sequences math
|
2008-08-02 00:31:43 -04:00
|
|
|
compiler.tree.escape-analysis.recursive
|
|
|
|
|
compiler.tree.escape-analysis.allocations ;
|
2009-08-13 20:21:44 -04:00
|
|
|
IN: compiler.tree.escape-analysis.recursive.tests
|
2008-08-02 00:31:43 -04:00
|
|
|
|
|
|
|
|
H{ } clone allocations set
|
2008-08-08 14:14:36 -04:00
|
|
|
<escaping-values> escaping-values set
|
2008-08-02 00:31:43 -04:00
|
|
|
|
2010-01-14 10:10:13 -05:00
|
|
|
[ ] [ 8 [ introduce-value ] each-integer ] unit-test
|
2008-08-02 00:31:43 -04:00
|
|
|
|
|
|
|
|
[ ] [ { 1 2 } 3 record-allocation ] unit-test
|
|
|
|
|
|
|
|
|
|
[ t ] [ { 1 2 } { 6 7 } congruent? ] unit-test
|
|
|
|
|
[ f ] [ { 3 4 } { 6 7 } congruent? ] unit-test
|
|
|
|
|
[ f ] [ { 3 4 5 } { 6 7 } congruent? ] unit-test
|
