Move the space instance to the parfait module
A better fit, maybe even a pattern for singletons
This commit is contained in:
@ -4,7 +4,7 @@ class TestAttributes < MiniTest::Test
|
||||
|
||||
def setup
|
||||
Register.machine.boot
|
||||
@space = Parfait::Space.object_space
|
||||
@space = Parfait.object_space
|
||||
@mess = @space.first_message
|
||||
@type = @mess.get_type
|
||||
end
|
||||
|
@ -4,7 +4,7 @@ class TestClass < MiniTest::Test
|
||||
|
||||
def setup
|
||||
Register.machine.boot
|
||||
@space = Parfait::Space.object_space
|
||||
@space = Parfait.object_space
|
||||
@try = @space.create_class :Try , :Object
|
||||
end
|
||||
|
||||
|
@ -10,10 +10,10 @@ class TestList < MiniTest::Test
|
||||
assert @list.is_a? Parfait::Indexed
|
||||
end
|
||||
def test_old_type
|
||||
assert_equal Parfait::Type , Parfait::Space.object_space.classes.keys.get_type.class
|
||||
assert_equal Parfait::Type , Parfait.object_space.classes.keys.get_type.class
|
||||
end
|
||||
def test_old_type_push
|
||||
list = Parfait::Space.object_space.classes.keys
|
||||
list = Parfait.object_space.classes.keys
|
||||
assert_equal Parfait::Type , list.get_type.class
|
||||
end
|
||||
def test_new_type
|
||||
@ -28,7 +28,7 @@ class TestList < MiniTest::Test
|
||||
assert_equal 1 , type.variable_index(:type)
|
||||
end
|
||||
def notest_type_is_first_old
|
||||
type = Parfait::Space.object_space.classes.keys.get_type
|
||||
type = Parfait.object_space.classes.keys.get_type
|
||||
assert_equal 1 , type.variable_index(:type)
|
||||
end
|
||||
|
||||
|
@ -4,7 +4,7 @@ class TestMessage < MiniTest::Test
|
||||
|
||||
def setup
|
||||
Register.machine.boot
|
||||
@space = Parfait::Space.object_space
|
||||
@space = Parfait.object_space
|
||||
@mess = @space.first_message
|
||||
end
|
||||
|
||||
|
@ -4,7 +4,7 @@ class TestNamedLists < MiniTest::Test
|
||||
|
||||
def setup
|
||||
Register.machine.boot
|
||||
@space = Parfait::Space.object_space
|
||||
@space = Parfait.object_space
|
||||
@named_list = @space.first_message.locals
|
||||
@type = @named_list.get_type
|
||||
end
|
||||
|
@ -4,7 +4,7 @@ class TestSpace < MiniTest::Test
|
||||
|
||||
def setup
|
||||
@machine = Register.machine.boot
|
||||
@space = Parfait::Space.object_space
|
||||
@space = Parfait.object_space
|
||||
end
|
||||
def classes
|
||||
[:Kernel,:Word,:List,:Message,:NamedList,:Type,:Object,:Class,:Dictionary,:TypedMethod , :Integer]
|
||||
@ -14,10 +14,10 @@ class TestSpace < MiniTest::Test
|
||||
end
|
||||
|
||||
def test_global_space
|
||||
assert_equal Parfait::Space , Parfait::Space.object_space.class
|
||||
assert_equal Parfait::Space , Parfait.object_space.class
|
||||
end
|
||||
def test_integer
|
||||
int = Parfait::Space.object_space.get_class_by_name :Integer
|
||||
int = Parfait.object_space.get_class_by_name :Integer
|
||||
assert_equal 3, int.instance_type.method_names.get_length
|
||||
end
|
||||
|
||||
|
@ -3,7 +3,7 @@ require_relative "../helper"
|
||||
class TestMethod < MiniTest::Test
|
||||
|
||||
def setup
|
||||
obj = Parfait::Space.object_space.get_class_by_name(:Object).instance_type
|
||||
obj = Parfait.object_space.get_class_by_name(:Object).instance_type
|
||||
args = Parfait::Type.for_hash( obj.object_class , { bar: :Integer , foo: :Type})
|
||||
@method = ::Parfait::TypedMethod.new obj , :meth , args
|
||||
@method.add_local :local_bar , :Integer
|
||||
|
Reference in New Issue
Block a user