fixing indexes makes test work

forgot my own rule: all parfait works in 1 based lists
This commit is contained in:
Torsten Ruger 2015-11-07 20:10:55 +02:00
parent a1aa6b58ac
commit 8c68ffc7a4
4 changed files with 13 additions and 3 deletions

View File

@ -1,7 +1,7 @@
class Layout < Object
Class object_class()
get_internal(1)
get_internal(2)
end
end

View File

@ -1,7 +1,7 @@
class Object
Layout get_layout()
return get_internal(0)
return get_internal(1)
end
Class get_class()

View File

@ -38,7 +38,7 @@ class AddTest < MiniTest::Test
ret = ticks(18)
assert_equal Register::FunctionReturn , ret.class
object = @interpreter.object_for( ret.register )
object = @interpreter.get_register( ret.register )
link = object.get_internal( ret.index )
assert_equal Register::Label , link.class

View File

@ -71,6 +71,16 @@ class TestLayout < MiniTest::Test
assert_equal layout.first , :layout
end
def test_class_space
space = Register.machine.space
assert_equal Parfait::Space , space.class
layout = space.get_layout
assert_equal Parfait::Layout , layout.class
assert_equal 3 , layout.instance_names.get_length
assert_equal layout.object_class.class , Parfait::Class
assert_equal layout.object_class.name , :Space
end
def test_attribute_set
@mess.receiver = 55
assert_equal 55 , @mess.receiver