74 lines
2.4 KiB
Ruby
74 lines
2.4 KiB
Ruby
require_relative "helper"
|
|
|
|
class AddTest < MiniTest::Test
|
|
include AST::Sexp
|
|
include Ticker
|
|
|
|
def setup
|
|
machine = Register.machine.boot
|
|
code = s(:class, :Object,
|
|
s(:derives, nil),
|
|
s(:statements,
|
|
s(:function, :int,
|
|
s(:name, :main),
|
|
s(:parameters),
|
|
s(:statements,
|
|
s(:return,
|
|
s(:operator_value, :+,
|
|
s(:int, 5),
|
|
s(:int, 7)))))))
|
|
|
|
Soml.compile( code )
|
|
machine.collect
|
|
@interpreter = Interpreter::Interpreter.new
|
|
@interpreter.start Register.machine.init
|
|
end
|
|
|
|
def test_get
|
|
assert_equal Register::GetSlot , ticks(4).class
|
|
assert @interpreter.get_register( :r2 )
|
|
assert Integer , @interpreter.get_register( :r2 ).class
|
|
end
|
|
def test_transfer
|
|
transfer = ticks 8
|
|
assert_equal Register::RegisterTransfer , transfer.class
|
|
assert_equal @interpreter.get_register(transfer.to) , @interpreter.get_register(transfer.from)
|
|
end
|
|
def test_call
|
|
ret = ticks(18)
|
|
assert_equal Register::FunctionReturn , ret.class
|
|
|
|
object = @interpreter.object_for( ret.register )
|
|
link = object.internal_object_get( ret.index )
|
|
|
|
assert_equal Register::Label , link.class
|
|
end
|
|
def test_adding
|
|
done_op = ticks(13)
|
|
assert_equal Register::OperatorInstruction , done_op.class
|
|
left = @interpreter.get_register(done_op.left)
|
|
rr = done_op.right
|
|
right = @interpreter.get_register(rr)
|
|
assert_equal Fixnum , left.class
|
|
assert_equal Fixnum , right.class
|
|
assert_equal 7 , right
|
|
assert_equal 12 , left
|
|
done_tr = ticks(3)
|
|
assert_equal Register::RegisterTransfer , done_tr.class
|
|
result = @interpreter.get_register(done_op.left)
|
|
assert_equal result , 12
|
|
end
|
|
|
|
def test_chain
|
|
#show_ticks # get output of what is
|
|
["Branch","Label","LoadConstant","GetSlot","SetSlot",
|
|
"LoadConstant","SetSlot","RegisterTransfer","FunctionCall","Label",
|
|
"LoadConstant","LoadConstant","OperatorInstruction","SetSlot","Label",
|
|
"RegisterTransfer","GetSlot","FunctionReturn","RegisterTransfer","Syscall",
|
|
"NilClass"].each_with_index do |name , index|
|
|
got = ticks(1)
|
|
assert got.class.name.index(name) , "Wrong class for #{index+1}, expect #{name} , got #{got}"
|
|
end
|
|
end
|
|
end
|