fixing indexes makes test work
forgot my own rule: all parfait works in 1 based lists
This commit is contained in:
@ -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
|
||||
|
@ -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
|
||||
|
Reference in New Issue
Block a user