compiler.*: new tests

basis/compiler/cfg/intrinsics/alien/alien-tests.factor

@@ -0,0 +1,73 @@
+USING: accessors alien alien.accessors compiler.cfg
+compiler.cfg.builder.blocks compiler.cfg.instructions
+compiler.cfg.intrinsics.alien compiler.test compiler.tree
+compiler.tree.propagation.info cpu.architecture kernel make
+math.intervals sequences ;
+IN: compiler.cfg.intrinsics.alien.tests
+
+! emit-<displaced-alien>
+
+: call-<displaced-alien> ( -- #call )
+    T{ #call
+       { word <displaced-alien> }
+       { in-d V{ 8583268 8583269 } }
+       { out-d { 8583267 } }
+       { info
+         H{
+             {
+                 8583267
+                 T{ value-info-state
+                    { class object }
+                    { interval full-interval }
+                 }
+             }
+             {
+                 8583268
+                 T{ value-info-state
+                    { class object }
+                    { interval full-interval }
+                 }
+             }
+             {
+                 8583269
+                 T{ value-info-state
+                    { class object }
+                    { interval full-interval }
+                 }
+             }
+         }
+       }
+    } ;
+
+{
+    V{
+        T{ ##call { word <displaced-alien> } }
+        T{ ##branch }
+    }
+} [
+    <basic-block> dup set-basic-block
+    call-<displaced-alien> emit-<displaced-alien>
+    predecessors>> first instructions>>
+] cfg-unit-test
+
+! emit-alien-cell
+{
+    V{
+        T{ ##load-integer { dst 3 } { val 0 } }
+        T{ ##add { dst 4 } { src1 3 } { src2 2 } }
+        T{ ##load-memory-imm
+           { dst 5 }
+           { base 4 }
+           { offset 0 }
+           { rep int-rep }
+        }
+        T{ ##box-alien { dst 7 } { src 5 } { temp 6 } }
+    }
+} [
+    <basic-block>
+    T{ #call
+       { word alien-cell }
+       { in-d V{ 10 20 } }
+       { out-d { 30 } }
+    } [ emit-alien-cell drop ] V{ } make
+] cfg-unit-test

basis/compiler/codegen/relocation/relocation-tests.factor

@@ -0,0 +1,12 @@
+USING: accessors alien.syntax compiler.codegen.relocation namespaces
+sequences tools.test ;
+IN: compiler.codegen.relocation.tests
+
+{
+    B{ 114 101 97 100 108 105 110 101 0 }
+    B{ 108 105 98 114 101 97 100 108 105 110 101 46 115 111 0 }
+} [
+    init-relocation
+    "readline" DLL" libreadline.so" add-dlsym-parameters
+    parameter-table get first2 path>>
+] unit-test