fixed simple layout offset bug in layout

This commit is contained in:
Torsten Ruger
2015-10-13 14:46:07 +03:00
parent aa20f2ca77
commit 80d58ee03c
9 changed files with 132 additions and 17 deletions

View File

@ -6,7 +6,7 @@ class TestSpace < MiniTest::Test
@machine = Virtual.machine.boot
end
def classes
[:Kernel,:Word,:List,:Message,:Frame,:Layout,:Class,:Dictionary,:Method , :Integer]
[:Kernel,:Word,:List,:Message,:Frame,:Layout,:Object,:Class,:Dictionary,:Method , :Integer]
end
def test_booted
assert_equal true , @machine.booted
@ -17,40 +17,35 @@ class TestSpace < MiniTest::Test
def test_global_space
assert_equal Parfait::Space , Parfait::Space.object_space.class
end
def test_intger
def test_integer
int = Parfait::Space.object_space.get_class_by_name :Integer
assert_equal 3, int.method_names.get_length
assert int.get_instance_method( :plus )
end
def test_classes_class
classes.each do |name|
assert_equal :Class , @machine.space.classes[name].get_class.name
assert_equal Parfait::Class , @machine.space.classes[name].class
assert_equal Parfait::Layout , @machine.space.classes[name].get_layout.class
assert_equal name , @machine.space.classes[name].get_class.name
end
end
def test_classes_class
classes.each do |name|
assert_equal :Class , @machine.space.classes[name].get_class.name
assert_equal Parfait::Class , @machine.space.classes[name].class
end
end
def test_classes_layout
classes.each do |name|
assert_equal Parfait::Layout , @machine.space.classes[name].get_layout.class
end
end
def test_classes_name
classes.each do |name|
assert_equal name , @machine.space.classes[name].name
end
end
def test_method_name
classes.each do |name|
cl = @machine.space.classes[name]
cl.method_names.each do |mname|
#puts "Mehtod #{mname}"
method = cl.get_instance_method(mname)
assert_equal mname , method.name
assert_equal name , method.for_class.name