compiler.cfg.ssa.destruction.tests: a bunch of new tests

diff --git a/basis/compiler/cfg/ssa/destruction/destruction-tests.factor b/basis/compiler/cfg/ssa/destruction/destruction-tests.factor
index 236eaa598958cdd19265e861a17699271add1ba9..ce05ae4d289b840cd115908b5f59f6c1f7b3e32c 100644 (file)
--- a/basis/compiler/cfg/ssa/destruction/destruction-tests.factor
+++ b/basis/compiler/cfg/ssa/destruction/destruction-tests.factor
@@ -2,7 +2,7 @@ USING: alien.syntax compiler.cfg.def-use compiler.cfg.instructions
 compiler.cfg.registers compiler.cfg.ssa.destruction
 compiler.cfg.ssa.destruction.leaders
 compiler.cfg.ssa.destruction.private compiler.cfg.utilities
-cpu.architecture cpu.x86.assembler.operands make namespaces tools.test ;
+cpu.architecture cpu.x86.assembler.operands kernel make namespaces tools.test ;
 IN: compiler.cfg.ssa.destruction.tests
 
 ! cleanup-insn
@@ -62,3 +62,21 @@ IN: compiler.cfg.ssa.destruction.tests
         }
     } 0 insns>block block>cfg destruct-ssa
 ] unit-test
+
+! must-eliminate-copy
+{ } [
+    10 10 must-eliminate-copy
+] unit-test
+
+! prepare-insn
+{ V{ { 2 1 } } } [
+    V{ } clone copies set
+    T{ ##copy { src 1 } { dst 2 } { rep int-rep } } prepare-insn
+    copies get
+] unit-test
+
+{ V{ { 3 4 } { 7 8 } } } [
+    V{ } clone copies set
+    T{ ##parallel-copy { values V{ { 3 4 } { 7 8 } } } } prepare-insn
+    copies get
+] unit-test