51 lines
1.7 KiB
Ruby
51 lines
1.7 KiB
Ruby
|
require_relative "helper"
|
||
|
|
|
||
|
|
class AddTest < MiniTest::Test
|
||
|
|
include Ticker
|
||
|
|
include AST::Sexp
|
||
|
|
|
||
|
|
def test_if
|
||
|
|
@string_input = <<HERE
|
||
|
|
class Object
|
||
|
|
int itest(int n)
|
||
|
|
if_zero( n - 12)
|
||
|
|
"then".putstring()
|
||
|
|
else
|
||
|
|
"else".putstring()
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
int main()
|
||
|
|
itest(20)
|
||
|
|
end
|
||
|
|
end
|
||
|
|
HERE
|
||
|
|
machine = Virtual.machine.boot
|
||
|
|
syntax = Parser::Salama.new.parse_with_debug(@string_input)
|
||
|
|
parts = Parser::Transform.new.apply(syntax)
|
||
|
|
#puts parts.inspect
|
||
|
|
Phisol::Compiler.compile( parts )
|
||
|
|
machine.collect
|
||
|
|
# statements = Virtual.machine.boot.parse_and_compile @string_input
|
||
|
|
# Phisol::Compiler.compile( statements , Virtual.machine.space.get_main )
|
||
|
|
@interpreter = Interpreter::Interpreter.new
|
||
|
|
@interpreter.start Virtual.machine.init
|
||
|
|
#show_ticks # get output of what is
|
||
|
|
["Branch","LoadConstant","GetSlot","SetSlot","RegisterTransfer",
|
||
|
|
"FunctionCall","SaveReturn","GetSlot","GetSlot","SetSlot",
|
||
|
|
"LoadConstant","SetSlot","LoadConstant","SetSlot","RegisterTransfer",
|
||
|
|
"FunctionCall","SaveReturn","GetSlot","LoadConstant","OperatorInstruction",
|
||
|
|
"IsZero","GetSlot","LoadConstant","SetSlot","LoadConstant",
|
||
|
|
"SetSlot","RegisterTransfer","FunctionCall","SaveReturn","GetSlot",
|
||
|
|
"RegisterTransfer","Syscall","RegisterTransfer","RegisterTransfer","SetSlot",
|
||
|
|
"RegisterTransfer","GetSlot","FunctionReturn","GetSlot","Branch",
|
||
|
|
"RegisterTransfer","GetSlot","FunctionReturn","GetSlot","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
|
||
|
|
#puts @interpreter.block.inspect
|
||
|
|
|
||
|
|
end
|
||
|
|
end
|