rename internal get/set functions
mainly because the salaam parser chokes on internal…
This commit is contained in:
@ -39,7 +39,7 @@ class AddTest < MiniTest::Test
|
||||
assert_equal Register::FunctionReturn , ret.class
|
||||
|
||||
object = @interpreter.object_for( ret.register )
|
||||
link = object.internal_object_get( ret.index )
|
||||
link = object.get_internal( ret.index )
|
||||
|
||||
assert_equal Register::Label , link.class
|
||||
end
|
||||
|
@ -17,11 +17,11 @@ class TestLayout < MiniTest::Test
|
||||
assert_equal @mess.next_message , @mess.get_instance_variable(:next_message)
|
||||
index = @mess.get_layout.variable_index :next_message
|
||||
assert_equal 2 , index
|
||||
assert_equal @mess.next_message , @mess.internal_object_get(index)
|
||||
assert_equal @mess.next_message , @mess.get_internal(index)
|
||||
end
|
||||
|
||||
def test_layout_index
|
||||
assert_equal @mess.get_layout , @mess.internal_object_get(Parfait::LAYOUT_INDEX) , "mess"
|
||||
assert_equal @mess.get_layout , @mess.get_internal(Parfait::LAYOUT_INDEX) , "mess"
|
||||
end
|
||||
|
||||
def test_inspect
|
||||
@ -38,7 +38,7 @@ class TestLayout < MiniTest::Test
|
||||
|
||||
def test_layout_length
|
||||
assert_equal 9 , @mess.get_layout.instance_length , @mess.get_layout.inspect
|
||||
assert_equal 18 , @mess.get_layout.internal_object_get(4)
|
||||
assert_equal 18 , @mess.get_layout.get_internal(4)
|
||||
end
|
||||
|
||||
def test_layout_length_index
|
||||
@ -46,7 +46,7 @@ class TestLayout < MiniTest::Test
|
||||
assert_equal 4 , @mess.get_layout.get_layout.get_offset
|
||||
assert_equal 4 , @mess.get_layout.get_offset
|
||||
assert_equal 8 , @mess.get_layout.get_layout.indexed_length
|
||||
assert_equal 8 , @mess.get_layout.get_layout.internal_object_get(4)
|
||||
assert_equal 8 , @mess.get_layout.get_layout.get_internal(4)
|
||||
end
|
||||
|
||||
def test_layout_methods
|
||||
@ -106,7 +106,7 @@ class TestLayout < MiniTest::Test
|
||||
message_ind = Register.resolve_index( :message , :receiver )
|
||||
assert_equal 3 , message_ind
|
||||
@mess.receiver = 55
|
||||
assert_equal 55 , @mess.internal_object_get(message_ind)
|
||||
assert_equal 55 , @mess.get_internal(message_ind)
|
||||
end
|
||||
|
||||
def test_object_layout
|
||||
@ -115,6 +115,6 @@ class TestLayout < MiniTest::Test
|
||||
|
||||
def test_remove_me
|
||||
layout = @mess.get_layout
|
||||
assert_equal layout , @mess.internal_object_get(1)
|
||||
assert_equal layout , @mess.get_internal(1)
|
||||
end
|
||||
end
|
||||
|
@ -48,7 +48,7 @@ class TestList < MiniTest::Test
|
||||
@list.push :one
|
||||
assert_equal 1 , @list.get_length
|
||||
assert_equal 1 , @list.indexed_length
|
||||
assert_equal 1 , @list.internal_object_get(Parfait::LAYOUT_INDEX + 1)
|
||||
assert_equal 1 , @list.get_internal(Parfait::LAYOUT_INDEX + 1)
|
||||
end
|
||||
def test_list_inspect
|
||||
@list.set(1,1)
|
||||
@ -71,7 +71,7 @@ class TestList < MiniTest::Test
|
||||
end
|
||||
def test_one_set1
|
||||
assert_equal 2 , @list.set(1,2)
|
||||
assert_equal 1 , @list.internal_object_get(2)
|
||||
assert_equal 1 , @list.get_internal(2)
|
||||
end
|
||||
def test_set1_len
|
||||
@list.set(1,1)
|
||||
|
@ -29,11 +29,11 @@ class TestMessage < MiniTest::Test
|
||||
end
|
||||
def test_push3
|
||||
@mess.push :name
|
||||
assert_equal 1 , @mess.internal_object_get(9)
|
||||
assert_equal 1 , @mess.get_internal(9)
|
||||
end
|
||||
def test_get_internal
|
||||
@mess.push :name
|
||||
assert_equal :name , @mess.internal_object_get(10)
|
||||
assert_equal :name , @mess.get_internal(10)
|
||||
end
|
||||
|
||||
def test_get
|
||||
|
@ -14,36 +14,36 @@ class TestObject < MiniTest::Test
|
||||
end
|
||||
|
||||
def test_empty_object_doesnt_return
|
||||
assert_equal nil , @object.internal_object_get(3)
|
||||
assert_equal nil , @object.get_internal(3)
|
||||
end
|
||||
|
||||
def test_one_set1
|
||||
assert_equal 1 , @object.internal_object_set(1,1)
|
||||
assert_equal 1 , @object.set_internal(1,1)
|
||||
end
|
||||
|
||||
def test_one_set2
|
||||
assert_equal :some , @object.internal_object_set(2,:some)
|
||||
assert_equal :some , @object.set_internal(2,:some)
|
||||
end
|
||||
|
||||
def test_two_sets
|
||||
assert_equal 1 , @object.internal_object_set(1,1)
|
||||
assert_equal :some , @object.internal_object_set(1,:some)
|
||||
assert_equal 1 , @object.set_internal(1,1)
|
||||
assert_equal :some , @object.set_internal(1,:some)
|
||||
end
|
||||
def test_one_get1
|
||||
test_one_set1
|
||||
assert_equal 1 , @object.internal_object_get(1)
|
||||
assert_equal 1 , @object.get_internal(1)
|
||||
end
|
||||
def test_one_get2
|
||||
test_one_set2
|
||||
assert_equal :some , @object.internal_object_get(2)
|
||||
assert_equal :some , @object.get_internal(2)
|
||||
end
|
||||
def test_many_get
|
||||
shouldda = { 1 => :one , 2 => :two , 3 => :three}
|
||||
shouldda.each do |k,v|
|
||||
@object.internal_object_set(k,v)
|
||||
@object.set_internal(k,v)
|
||||
end
|
||||
shouldda.each do |k,v|
|
||||
assert_equal v , @object.internal_object_get(k)
|
||||
assert_equal v , @object.get_internal(k)
|
||||
end
|
||||
end
|
||||
end
|
||||
|
Reference in New Issue
Block a user