require_relative "../helper"

module Parfait
  class TestNamedLists < MiniTest::Test

    def setup
      Risc.machine.boot
      @space = Parfait.object_space
      @named_list = @space.first_message.frame
      @type = @named_list.get_type
    end

    def test_named_list_get_type
      assert_equal Type , @type.class
      assert @type.names
      assert @named_list.get_instance_variables
    end

    def test_new
      list = NamedList.new
      assert list.get_type
    end
    def test_var_names
      list = NamedList.new
      assert_equal List , list.get_instance_variables.class
    end
    def test_var_names_length
      list = NamedList.new
      assert_equal 1 , list.get_instance_variables.get_length
    end
  end
end