require_relative "helper"

module SlotMachine
  class TestMessageSetupInt < SlotMachineInstructionTest
    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 1 ,:message , 9 , :"message.arg1"
    end
    def test_2_slot
      assert_slot_to_reg 2 ,:message , 1 , :"message.next_message"
    end
    def test_3_reg
      assert_reg_to_slot 3 , :"message.arg1" , :"message.next_message" , 7
    end
  end
  class TestMessageSetupCache < SlotMachineInstructionTest
    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 1 , Parfait::CacheEntry , "id_"
    end
    def test_2_slot
      assert_slot_to_reg 2 ,"id_" , 2 , "id_.cached_method"
    end
    def test_3_slot
      assert_slot_to_reg 3 ,:message , 1 , :"message.next_message"
    end
    def test_4_reg
      assert_reg_to_slot 4 , "id_.cached_method" , :"message.next_message" , 7
    end

  end
end