1 USING: accessors arrays compiler.cfg compiler.cfg.debugger
2 compiler.cfg.dominance compiler.cfg.predecessors
3 compiler.cfg.ssa.construction.tdmsc compiler.cfg.utilities kernel namespaces
4 sequences sets tools.test vectors ;
5 FROM: namespaces => set ;
6 IN: compiler.cfg.ssa.construction.tdmsc.tests
9 0 get block>cfg dup cfg set
25 { } [ test-tdmsc ] unit-test
27 { { 4 } } [ 1 get 1array merge-set [ number>> ] map ] unit-test
28 { { 4 } } [ 2 get 1array merge-set [ number>> ] map ] unit-test
29 { { } } [ 0 get 1array merge-set ] unit-test
30 { { } } [ 4 get 1array merge-set ] unit-test
47 { } [ test-tdmsc ] unit-test
50 2 get 3 get 2array merge-set
51 4 get 6 get 2array set=
71 { } [ test-tdmsc ] unit-test
73 { { 2 } } [ { 2 3 4 5 } [ get ] map merge-set [ number>> ] map ] unit-test
74 { { } } [ { 0 1 6 7 } [ get ] map merge-set ] unit-test