start to move slot_load code to register_value

the iea is to iterate through register_values while reducing the slot_load to a number of Slot_to_regs
wip

test/mom/instruction/test_slot_load2.rb

@@ -5,17 +5,17 @@ module Mom
 
     def setup
       Parfait.boot!
-      Risc.boot!
-      @load = SlotLoad.new( [:message, :caller] , [:message, :caller , :type] )
+      @load = SlotLoad.new( [:message, :caller, :type] , [:message, :caller , :type] )
       @compiler = CompilerMock.new
       @instruction = @load.to_risc(@compiler)
     end
 
     def test_ins_next_class
-      assert_equal Risc::SlotToReg , @instruction.next.class
+      assert_equal Risc::SlotToReg , @instruction.next(1).class
+      assert_equal Risc::SlotToReg , @instruction.next(2).class
     end
     def test_ins_next_next_class
-      assert_equal Risc::RegToSlot , @instruction.next.next.class
+      assert_equal Risc::RegToSlot , @instruction.next(3).class
     end
 
     def test_ins_next_reg
@@ -28,14 +28,24 @@ module Mom
       assert_equal 0 , @instruction.next.index
     end
 
-    def test_ins_next_next_reg
-      assert_equal :r1 , @instruction.next.next.register.symbol
+    def test_ins_next_2_reg
+      assert_equal :r1 , @instruction.next(2).register.symbol
     end
-    def test_ins_next_next_arr
-      assert_equal :r0 , @instruction.next.next.array.symbol
+    def test_ins_next_2_arr
+      assert_equal :r0 , @instruction.next(2).array.symbol
     end
-    def test_ins_next_next_index
-      assert_equal 6 , @instruction.next.next.index
+    def test_ins_next_2_index
+      assert_equal 6 , @instruction.next(2).index
+    end
+
+    def test_ins_next_3_reg
+      assert_equal :r1 , @instruction.next(3).register.symbol
+    end
+    def test_ins_next_3_arr
+      assert_equal :r1 , @instruction.next(3).array.symbol
+    end
+    def test_ins_next_3_index
+      assert_equal 0 , @instruction.next(3).index
     end
   end
 end

test/risc/test_register_value1.rb

@@ -0,0 +1,48 @@
+require_relative "../helper"
+
+module Risc
+  class FakeCompiler
+    def resolve_type(name)
+      Parfait.object_space.types.values.first
+    end
+    def use_reg(type)
+      RegisterValue.new(:r1 , type)
+    end
+  end
+
+  class TestRegisterValue < MiniTest::Test
+
+    def setup
+      Parfait.boot!
+      @r0 = RegisterValue.new(:r0 , :Message)
+      @r1 = RegisterValue.new(:r1 , :Space)
+      @compiler = FakeCompiler.new
+    end
+
+    def test_resolves_index_ok
+      assert_equal 6 , @r0.resolve_index(:caller)
+    end
+    def test_resolves_index_fail
+      assert_raises {@r0.resolve_index(:something)}
+    end
+    def test_revolve_new_type_0
+      assert_equal "Message_Type",  @r0.resolve_new_type(:caller , @compiler).name
+    end
+    def test_revolve_new_type_1
+      # returned by FakeCompiler , not real
+      assert_equal "BinaryCode_Type", @r1.resolve_new_type(:receiver , @compiler).name
+    end
+    def test_get_new_left_0
+      assert_equal RegisterValue , @r0.get_new_left(:caller , @compiler).class
+    end
+    def test_get_new_left_0_reg
+      assert_equal :r1 , @r0.get_new_left(:caller , @compiler).symbol
+    end
+    def test_get_new_left_1
+      assert_equal RegisterValue , @r1.get_new_left(:caller , @compiler).class
+    end
+    def test_get_new_left_1_reg
+      assert_equal :r1 , @r1.get_new_left(:caller , @compiler).symbol
+    end
+  end
+end