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