test get class
This commit is contained in:
parent
d7c9245bb3
commit
08e1852e5f
@ -17,6 +17,7 @@ class TestSpace < MiniTest::Test
|
||||
end
|
||||
def test_classes
|
||||
[:Kernel,:Word,:List,:Message,:Frame,:Layout,:Class,:Dictionary,:Method].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
|
||||
end
|
||||
|
Loading…
Reference in New Issue
Block a user