2015-10-22 14:34:47 +02:00
|
|
|
require_relative "helper"
|
|
|
|
|
2015-11-08 14:15:55 +01:00
|
|
|
class IfTest < MiniTest::Test
|
2015-10-22 14:34:47 +02:00
|
|
|
include Ticker
|
|
|
|
|
2015-11-08 13:30:28 +01:00
|
|
|
def setup
|
2015-10-22 14:34:47 +02:00
|
|
|
@string_input = <<HERE
|
2015-11-30 15:20:39 +01:00
|
|
|
class Space
|
2015-10-22 14:34:47 +02:00
|
|
|
int itest(int n)
|
|
|
|
if_zero( n - 12)
|
|
|
|
"then".putstring()
|
|
|
|
else
|
|
|
|
"else".putstring()
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
int main()
|
|
|
|
itest(20)
|
|
|
|
end
|
|
|
|
end
|
|
|
|
HERE
|
2016-12-10 22:07:04 +01:00
|
|
|
@input = s(:statements, s(:class, :Space, s(:derives, nil), s(:statements, s(:function, :Integer, s(:name, :itest), s(:parameters, s(:parameter, :Integer, :n)), s(:statements, s(:if_statement, :zero, s(:condition, s(:operator_value, :-, s(:name, :n), s(:int, 12))), s(:true_statements, s(:call, s(:name, :putstring), s(:arguments), s(:receiver, s(:string, "then")))), s(:false_statements, s(:call, s(:name, :putstring), s(:arguments), s(:receiver, s(:string, "else"))))))), s(:function, :Integer, s(:name, :main), s(:parameters), s(:statements, s(:call, s(:name, :itest), s(:arguments, s(:int, 20))))))))
|
2015-11-08 13:30:28 +01:00
|
|
|
super
|
|
|
|
end
|
|
|
|
|
|
|
|
def test_if
|
2015-10-22 14:34:47 +02:00
|
|
|
#show_ticks # get output of what is
|
2015-11-08 13:30:28 +01:00
|
|
|
check_chain ["Branch","Label","LoadConstant","GetSlot","SetSlot",
|
2015-11-07 21:20:21 +01:00
|
|
|
"LoadConstant","SetSlot","FunctionCall","Label","GetSlot",
|
|
|
|
"GetSlot","SetSlot","LoadConstant","SetSlot","LoadConstant",
|
|
|
|
"SetSlot","LoadConstant","SetSlot","LoadConstant","SetSlot",
|
|
|
|
"RegisterTransfer","FunctionCall","Label","GetSlot","LoadConstant",
|
|
|
|
"OperatorInstruction","IsZero","GetSlot","LoadConstant","SetSlot",
|
2015-11-03 10:25:02 +01:00
|
|
|
"LoadConstant","SetSlot","LoadConstant","SetSlot","LoadConstant",
|
|
|
|
"SetSlot","RegisterTransfer","FunctionCall","Label","GetSlot",
|
2015-11-16 17:05:57 +01:00
|
|
|
"GetSlot","RegisterTransfer","Syscall","RegisterTransfer","RegisterTransfer",
|
|
|
|
"SetSlot","Label","FunctionReturn","RegisterTransfer","GetSlot",
|
|
|
|
"GetSlot","Branch","Label","Label","FunctionReturn",
|
|
|
|
"RegisterTransfer","GetSlot","GetSlot","Label","FunctionReturn",
|
|
|
|
"RegisterTransfer","Syscall","NilClass"]
|
2015-10-22 14:34:47 +02:00
|
|
|
end
|
|
|
|
end
|