Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

[factor.git] / basis / compiler / cfg / two-operand / two-operand-tests.factor

diff --git a/basis/compiler/cfg/two-operand/two-operand-tests.factor b/basis/compiler/cfg/two-operand/two-operand-tests.factor
index b99ea66c94ccce19d94bc4e6b850b7c1fbf0215a..09d88a29598c676fe569f66f3eac837821ee239a 100644 (file)
--- a/basis/compiler/cfg/two-operand/two-operand-tests.factor
+++ b/basis/compiler/cfg/two-operand/two-operand-tests.factor
@@ -1,27 +1,52 @@
-IN: compiler.cfg.two-operand.tests
-USING: compiler.cfg.two-operand compiler.cfg.instructions
+USING: kernel compiler.cfg.two-operand compiler.cfg.instructions
 compiler.cfg.registers cpu.architecture namespaces tools.test ;
+IN: compiler.cfg.two-operand.tests
 
 3 vreg-counter set-global
 
 [
     V{
-        T{ ##copy f V int-rep 1 V int-rep 2 int-rep }
-        T{ ##sub f V int-rep 1 V int-rep 1 V int-rep 3 }
+        T{ ##copy f 1 2 int-rep }
+        T{ ##sub f 1 1 3 }
+    }
+] [
+    H{
+        { 1 int-rep }
+        { 2 int-rep }
+        { 3 int-rep }
+    } clone representations set
+    {
+        T{ ##sub f 1 2 3 }
+    } (convert-two-operand)
+] unit-test
+
+[
+    V{
+        T{ ##copy f 1 2 double-float-rep }
+        T{ ##sub-float f 1 1 3 }
     }
 ] [
+    H{
+        { 1 double-float-rep }
+        { 2 double-float-rep }
+        { 3 double-float-rep }
+    } clone representations set
     {
-        T{ ##sub f V int-rep 1 V int-rep 2 V int-rep 3 }
+        T{ ##sub-float f 1 2 3 }
     } (convert-two-operand)
 ] unit-test
 
 [
     V{
-        T{ ##copy f V double-float-rep 1 V double-float-rep 2 double-float-rep }
-        T{ ##sub-float f V double-float-rep 1 V double-float-rep 1 V double-float-rep 3 }
+        T{ ##copy f 1 2 double-float-rep }
+        T{ ##mul-float f 1 1 1 }
     }
 ] [
+    H{
+        { 1 double-float-rep }
+        { 2 double-float-rep }
+    } clone representations set
     {
-        T{ ##sub-float f V double-float-rep 1 V double-float-rep 2 V double-float-rep 3 }
+        T{ ##mul-float f 1 2 2 }
     } (convert-two-operand)
 ] unit-test