rename machine to linker

even work is not quite finished, but helps root out offenders
(needless to say this is wip, deep red wip)

test/risc/test_linker.rb

@@ -0,0 +1,84 @@
+require_relative "helper"
+
+module Risc
+  class TestMachineObjects < MiniTest::Test
+
+    def setup
+      Parfait.boot!
+      Risc.boot
+      @machine = Linker.new
+    end
+    def test_objects
+      objects = @machine.object_positions
+      assert_equal Hash , objects.class
+      assert 350 < objects.length
+    end
+    def test_constant_fail
+      assert_raises {@machine.add_constant( 1 )}
+    end
+    def test_constant
+      assert @machine.add_constant( Parfait::Integer.new(5) )
+    end
+    def test_address_get
+      assert_equal Parfait::ReturnAddress ,  @machine.get_address.class
+    end
+    def test_address_is_constant
+      addr = @machine.get_address
+      assert @machine.constants.include?(addr)
+    end
+    def test_address_count
+      addr = @machine.get_address
+      count = 0
+      while(addr)
+        count += 1
+        addr = addr.next_integer
+      end
+      assert_equal 5, count
+    end
+  end
+  class TestMachinePos #< MiniTest::Test
+    def setup
+      Parfait.boot!
+      @machine = Risc.machine.boot
+      @machine.translate(:arm)
+      @machine.position_all
+    end
+    def test_positions_set
+      @machine.object_positions.each do |obj , position|
+        assert Position.get(obj).valid? , "#{Position.get(obj)} , #{obj.object_id.to_s(16)}"
+      end
+    end
+  end
+  class TestMachineInit #< MiniTest::Test
+    def setup
+      Parfait.boot!
+      @machine = Risc.machine.boot
+      @machine.translate(:arm)
+      @machine.position_all
+      @machine.create_binary
+    end
+    def test_pos_cpu
+      assert_equal 0 ,  Position.get(@machine.cpu_init).at
+    end
+    def test_cpu_at
+      assert_equal "0x6034" ,  Position.get(@machine.cpu_init.first).to_s
+    end
+    def test_cpu_label
+      assert_equal Position ,  Position.get(@machine.cpu_init.first).class
+    end
+    def test_first_binary_jump
+      bin = Parfait.object_space.get_init.binary
+      assert 0 != bin.get_word(Parfait::BinaryCode.data_length) , "index 0 is 0 #{bin.inspect}"
+    end
+    def test_second_binary_first
+      bin = Parfait.object_space.get_init.binary.next
+      assert 0 != bin.get_word(0) , "index 0 is 0 #{bin.inspect}"
+    end
+    def test_positions_set
+      @machine.object_positions.each do |obj,position|
+        assert position.valid? , "#{position} , #{obj.object_id.to_s(16)}"
+      end
+    end
+
+  end
+end