require_relative "../helper"

class TestLayout < MiniTest::Test

  def setup
    @mess = Virtual.machine.boot.space.first_message
  end

  def test_message_layout
    layout = @mess.get_layout
    assert layout
    assert @mess.instance_variable_defined :next_message
    assert_equal @mess.next_message , @mess.get_instance_variable(:next_message)
  end

  def test_message_by_index
    assert_equal @mess.next_message , @mess.get_instance_variable(:next_message)
    index = @mess.get_layout.variable_index :next_message
    assert_equal 3 , index
    assert_equal @mess.next_message , @mess.internal_object_get(index)
  end

  def test_layout_index
    assert_equal @mess.get_layout , @mess.internal_object_get(1) , "mess"
  end

  def test_forbidden_index_of
    assert_raises(RuntimeError) { @mess.get_layout.index_of(:name)}
  end

  def test_inspect
    assert @mess.get_layout.inspect.start_with?("Layout")
  end
  def test_layout_is_first
    layout = @mess.get_layout
    assert_equal nil , layout.variable_index(:layout)
  end

  def test_no_index_below_1
    layout = @mess.get_layout
    names = layout.object_instance_names
    assert_equal 7 , names.get_length , names.inspect
    names.each do |n|
      assert layout.variable_index(n) >= 1
    end
  end

  def test_class_layout
    oc = Virtual.machine.boot.space.get_class_by_name( :Object )
    assert_equal Parfait::Class , oc.class
    layout = oc.object_layout
    assert_equal Parfait::Layout , layout.class
    assert_equal layout.object_instance_names.get_length , 0
    #assert_equal layout.first , :layout
  end
end