require_relative "helper"

module SlotMachine

  class TestSlottedObjectType < MiniTest::Test
    def setup
      Parfait.boot!(Parfait.default_test_options)
      compiler = Risc.test_compiler
      @slotted = Slotted.for(Parfait.object_space , slot2)
      register = @slotted.to_register(compiler , InstructionMock.new)
      @instruction = compiler.risc_instructions.next
    end
    def slot2
      [:type]
    end
    def test_load
      assert_load @instruction , Parfait::Space , "id_"
    end
    def test_to_s
      assert_equal "Space." + slot2.join(".") , @slotted.to_s
    end
    def test_def_register2
      assert_slot_to_reg @instruction.next , "id_" , 0 , "id_.type"
    end
  end
  class TestSlottedObjectType2 < TestSlottedObjectType
    def slot2
      [:type , :type]
    end
    def test_def_register3
      assert_slot_to_reg @instruction.next(2) , "id_.type" , 0 , "id_.type.type"
    end
  end
  class TestSlottedObjectType3 < TestSlottedObjectType
    def slot2
      [:type , :type , :type ]
    end
    def test_def_register3
      assert_slot_to_reg @instruction.next(3) , "id_.type.type" , 0 , "id_.type.type.type"
    end
  end
end