More instruction tests

test/mom/instruction/test_message_setup.rb

@@ -0,0 +1,46 @@
+require_relative "helper"
+
+module Mom
+  class TestMessageSetupInt < MomInstructionTest
+    def instruction
+      MessageSetup.new( 1 )
+    end
+    def test_len
+      assert_equal 4 , all.length , all_str
+    end
+    def test_1_slot
+      assert_slot_to_reg risc(1) ,:r0 , 9 , :r1
+    end
+    def test_2_slot
+      assert_slot_to_reg risc(2) ,:r0 , 1 , :r2
+    end
+  end
+  def test_3_reg
+    assert_reg_to_slot risc(3) , :r1 , :r2 , 4
+  end
+  class TestMessageSetupCache < MomInstructionTest
+    include Parfait::MethodHelper
+
+    def instruction
+      method = make_method
+      cache_entry = Parfait::CacheEntry.new(method.frame_type, method)
+      MessageSetup.new( cache_entry )
+    end
+    def test_len
+      assert_equal 5 , all.length , all_str
+    end
+    def test_1_load
+      assert_load risc(1) , Parfait::CacheEntry , :r1
+    end
+    def test_2_slot
+      assert_slot_to_reg risc(2) ,:r1 , 2 , :r2
+    end
+    def test_3_slot
+      assert_slot_to_reg risc(3) ,:r0 , 1 , :r3
+    end
+    def test_4_reg
+      assert_reg_to_slot risc(4) , :r2 , :r3 , 7
+    end
+
+  end
+end