fold last of the virtual into register
This commit is contained in:
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
||||
|
@ -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]
|
||||
|
@ -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
|
||||
|
Reference in New Issue
Block a user