f798173a09
Wherever space was loaded to get to the next_message we now load the Message factory. Otherwise much the same, only the attribute is next_object, not next_message The binary is growing with 1k objects per factory, so i had to fix (hack) arm to handle bigger constants close #14
107 lines
3.1 KiB
Ruby
107 lines
3.1 KiB
Ruby
require_relative "../helper"
|
|
|
|
module Risc
|
|
class TestCodeBuilder < MiniTest::Test
|
|
|
|
def setup
|
|
Parfait.boot!
|
|
Risc.boot!
|
|
init = Parfait.object_space.get_init
|
|
@builder = Risc::MethodCompiler.new( init ).builder(init)
|
|
@label = Risc.label("source","name")
|
|
@start = @builder.compiler.current
|
|
end
|
|
def built
|
|
@start.next
|
|
end
|
|
def test_has_build
|
|
assert @builder.respond_to?(:build)
|
|
end
|
|
def test_has_attribute
|
|
assert_nil @builder.built
|
|
end
|
|
def test_alloc_space
|
|
reg = @builder.space!
|
|
assert_equal RegisterValue , reg.class
|
|
assert_equal :Space , reg.type.class_name
|
|
end
|
|
def test_not_alloc_space
|
|
assert_raises {@builder.space}
|
|
end
|
|
def test_next_message
|
|
reg = @builder.next_message!
|
|
assert_equal :r1 , reg.symbol
|
|
assert_equal :Message , reg.type.class_name
|
|
end
|
|
def test_message
|
|
reg = @builder.message
|
|
assert_equal :r0 , reg.symbol
|
|
assert_equal :Message , reg.type.class_name
|
|
end
|
|
def test_returns_built
|
|
r1 = RegisterValue.new(:r1 , :Space)
|
|
@builder.build{ space! << r1 }
|
|
assert_equal Transfer , built.class
|
|
end
|
|
def test_returns_two
|
|
r1 = RegisterValue.new(:r1 , :Space)
|
|
@builder.build{ space! << r1 ; space << r1}
|
|
assert_equal Transfer , built.next.class
|
|
end
|
|
def test_returns_slot
|
|
r2 = RegisterValue.new(:r2 , :Message).set_builder( @builder )
|
|
@builder.build{ r2 << factory![:next_object] }
|
|
assert_equal SlotToReg , built.class
|
|
assert_equal :r1 , built.array.symbol
|
|
end
|
|
def test_returns_slot_reverse
|
|
r2 = RegisterValue.new(:r2 , :Message).set_builder( @builder )
|
|
@builder.build{ r2 << factory![:next_object] }
|
|
assert_equal SlotToReg , built.class
|
|
assert_equal :r1 , built.array.symbol
|
|
end
|
|
def test_reuses_names
|
|
r1 = RegisterValue.new(:r1 , :Space)
|
|
@builder.build{ space! << r1 ; space << r1}
|
|
assert_equal built.to.symbol , built.next.to.symbol
|
|
end
|
|
def test_uses_message_as_message
|
|
r1 = RegisterValue.new(:r1 , :Space)
|
|
@builder.build{ message[:receiver] << r1}
|
|
assert_equal RegToSlot , built.class
|
|
assert_equal :r0 , built.array.symbol
|
|
end
|
|
def test_label
|
|
label = @builder.exit_label
|
|
assert_equal Label , label.class
|
|
assert label.name.index("exit")
|
|
end
|
|
def test_two_label
|
|
label1 = @builder.exit_label
|
|
label2 = @builder.exit_label
|
|
assert_equal label1 , label2
|
|
end
|
|
def test_if_zero
|
|
ret = @builder.if_zero @label
|
|
assert_equal IsZero , ret.class
|
|
assert_equal @label , ret.label
|
|
end
|
|
def test_if_not_zero
|
|
ret = @builder.if_not_zero @label
|
|
assert_equal IsNotZero , ret.class
|
|
assert_equal @label , ret.label
|
|
end
|
|
def test_branch
|
|
ret = @builder.branch @label
|
|
assert_equal Branch , ret.class
|
|
assert_equal @label , ret.label
|
|
end
|
|
def test_minus
|
|
op = @builder.build {space! - callable_method!}
|
|
assert_equal OperatorInstruction , op.class
|
|
assert_equal :- , op.operator
|
|
assert_equal :Space , op.left.type.class_name
|
|
end
|
|
end
|
|
end
|