fold last of the virtual into register

This commit is contained in:
Torsten Ruger
2015-10-22 18:16:29 +03:00
parent f658ecf425
commit dcbd3c7091
67 changed files with 161 additions and 227 deletions

View File

@ -3,7 +3,7 @@ require_relative "../helper"
class TestAttributes < MiniTest::Test
def setup
@mess = Virtual.machine.boot.space.first_message
@mess = Register.machine.boot.space.first_message
@layout = @mess.get_layout
end

View File

@ -1,7 +1,7 @@
require_relative "../helper"
class TestDictionary < MiniTest::Test
Virtual.machine.boot #have to book, otherwise layouts etc not set
Register.machine.boot #have to book, otherwise layouts etc not set
def setup
@lookup = ::Parfait::Dictionary.new

View File

@ -3,7 +3,7 @@ require_relative "../helper"
class TestLayout < MiniTest::Test
def setup
@mess = Virtual.machine.boot.space.first_message
@mess = Register.machine.boot.space.first_message
end
def test_message_layout
@ -46,7 +46,7 @@ class TestLayout < MiniTest::Test
end
def test_class_layout
oc = Virtual.machine.boot.space.get_class_by_name( :Object )
oc = Register.machine.boot.space.get_class_by_name( :Object )
assert_equal Parfait::Class , oc.class
layout = oc.object_layout
assert_equal Parfait::Layout , layout.class

View File

@ -3,14 +3,14 @@ require_relative "../helper"
class TestList < MiniTest::Test
def setup
Virtual.machine.boot unless Virtual.machine.booted
Register.machine.boot unless Register.machine.booted
@list = ::Parfait::List.new
end
def test_old_layout
assert_equal Parfait::Layout , Virtual.machine.space.classes.keys.get_layout.class
assert_equal Parfait::Layout , Register.machine.space.classes.keys.get_layout.class
end
def test_old_layout_push
list = Virtual.machine.space.classes.keys
list = Register.machine.space.classes.keys
list.push(1)
assert_equal Parfait::Layout , list.get_layout.class
end
@ -26,7 +26,7 @@ class TestList < MiniTest::Test
assert_equal 1 , layout.variable_index(:layout)
end
def notest_layout_is_first_old
layout = Virtual.machine.space.classes.keys.get_layout
layout = Register.machine.space.classes.keys.get_layout
assert_equal 1 , layout.variable_index(:layout)
end

View File

@ -3,8 +3,8 @@ require_relative "../helper"
class TestMethod < MiniTest::Test
def setup
obj = Virtual.machine.boot.space.get_class_by_name(:Object)
args = Virtual.new_list [ Parfait::Variable.new(:Integer , :bar )]
obj = Register.machine.boot.space.get_class_by_name(:Object)
args = Register.new_list [ Parfait::Variable.new(:Integer , :bar )]
@method = ::Parfait::Method.new obj , :foo , args
end

View File

@ -3,7 +3,7 @@ require_relative "../helper"
class TestSpace < MiniTest::Test
def setup
@machine = Virtual.machine.boot
@machine = Register.machine.boot
end
def classes
[:Kernel,:Word,:List,:Message,:Frame,:Layout,:Object,:Class,:Dictionary,:Method , :Integer]

View File

@ -3,7 +3,7 @@ require_relative "../helper"
class TestEmptyWord < MiniTest::Test
def setup
Virtual.machine.boot unless Virtual.machine.booted
Register.machine.boot unless Register.machine.booted
@word = ::Parfait::Word.new(0)
end
def test_word_create