adding types to layout

so we can test assignment
This commit is contained in:
Torsten Ruger
2015-10-29 12:45:29 +02:00
parent e4201143b3
commit 7d7b7ca995
7 changed files with 51 additions and 38 deletions

View File

@ -17,7 +17,7 @@ HERE
end
def test_field
Register.machine.space.get_class_by_name(:Object).object_layout.add_instance_variable(:bro)
Register.machine.space.get_class_by_name(:Object).object_layout.add_instance_variable(:bro,:Object)
@root = :field_access
@string_input = <<HERE
self.bro

View File

@ -37,16 +37,16 @@ class TestLayout < MiniTest::Test
end
def test_layout_length
assert_equal 9 , @mess.get_layout.indexed_length , @mess.get_layout.inspect
assert_equal 9 , @mess.get_layout.internal_object_get(4)
assert_equal 9 , @mess.get_layout.instance_length , @mess.get_layout.inspect
assert_equal 18 , @mess.get_layout.internal_object_get(4)
end
def test_layout_length_index
assert_equal 4 , @mess.get_layout.get_layout.variable_index(:indexed_length)
assert_equal 4 , @mess.get_layout.get_layout.get_offset
assert_equal 4 , @mess.get_layout.get_offset
assert_equal 4 , @mess.get_layout.get_layout.indexed_length
assert_equal 4 , @mess.get_layout.get_layout.internal_object_get(4)
assert_equal 8 , @mess.get_layout.get_layout.indexed_length
assert_equal 8 , @mess.get_layout.get_layout.internal_object_get(4)
end
def test_layout_methods
@ -78,11 +78,11 @@ class TestLayout < MiniTest::Test
def test_add_name
layout = Parfait::Layout.new Register.machine.space.get_class_by_name(:Layout)
layout.add_instance_variable :boo
layout.add_instance_variable :boo , :Object
assert_equal 2 , layout.variable_index(:boo)
assert_equal 2 , layout.get_length
assert_equal 4 , layout.get_length
assert_equal :layout , layout.get(1)
assert_equal :boo , layout.get(2)
assert_equal :boo , layout.get(3)
layout
end
@ -93,8 +93,8 @@ class TestLayout < MiniTest::Test
def test_each
layout = test_add_name
assert_equal 2 , layout.get_length
counter = [:boo , :layout]
assert_equal 4 , layout.get_length
counter = [:boo , :Object, :layout , :Layout]
layout.each do |item|
assert_equal item , counter.delete(item)
end

View File

@ -13,7 +13,7 @@ class TestPositioning < MiniTest::Test
list = Register.new_list([1,2,3,4,5])
list.set_layout( Parfait::Layout.new Object)
# TODO check why this is 64 and not 32
assert_equal 32 , list.word_length
assert_equal 64 , list.word_length
end
def test_layout
layout = Parfait::Layout.new Object