boot_function test
This commit is contained in:
parent
fc96f1d2da
commit
cf0a123866
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user