test get class

This commit is contained in:
Torsten Ruger 2015-07-19 21:22:29 +03:00
parent d7c9245bb3
commit 08e1852e5f

View File

@ -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