boot_function test

This commit is contained in:
Torsten Ruger 2017-01-15 20:04:52 +02:00
parent fc96f1d2da
commit cf0a123866
2 changed files with 8 additions and 0 deletions

View File

@ -112,6 +112,7 @@ module Vm
def on_name statement
Tree::NameExpression.new(statement.children.first)
end
def on_string expression
Tree::StringExpression.new(expression.children.first)
end

View File

@ -10,10 +10,17 @@ class TestSpace < MiniTest::Test
def classes
[:Kernel,:Word,:List,:Message,:NamedList,:Type,:Object,:Class,:Dictionary,:TypedMethod , :Integer]
end
def test_booted
assert_equal true , @machine.booted
end
def test_methods_booted
word = @space.get_class_by_name(:Word).instance_type
assert_equal 3 , word.method_names.get_length
assert word.get_method(:putstring) , "no putstring"
end
def test_global_space
assert_equal Parfait::Space , Parfait.object_space.class
end