require_relative "helper"

class IfCalledTest < MiniTest::Test
  include Ticker
  include Compiling

  def setup
    @string_input = <<HERE
class Space
  int itest(int n)
    if_zero( n - 12)
      "then".putstring()
    else
      "else".putstring()
    end
  end

  int main()
    itest(20)
  end
end
HERE
    @input = s(:statements, s(:call, s(:name, :itest), s(:arguments, s(:int, 20))))
    super
  end

  # must be after boot, but before main compile, to define method
  def do_clean_compile
    clean_compile :Space , :itest , {:n => :Integer} ,
          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"))))))
  end
  def test_if
      #show_ticks # get output of what is
      check_chain ["Branch","Label","LoadConstant","SlotToReg","RegToSlot",
     "LoadConstant","RegToSlot","FunctionCall","Label","SlotToReg",
     "SlotToReg","RegToSlot","LoadConstant","RegToSlot","LoadConstant",
     "SlotToReg","SlotToReg","RegToSlot","LoadConstant","SlotToReg",
     "RegToSlot","LoadConstant","RegToSlot","RegisterTransfer","FunctionCall",
     "Label","SlotToReg","SlotToReg","LoadConstant","OperatorInstruction",
     "IsZero","SlotToReg","LoadConstant","RegToSlot","LoadConstant",
     "RegToSlot","LoadConstant","SlotToReg","SlotToReg","RegToSlot",
     "LoadConstant","RegToSlot","RegisterTransfer","FunctionCall","Label",
     "SlotToReg","SlotToReg","RegisterTransfer","Syscall","RegisterTransfer",
     "RegisterTransfer","RegToSlot","Label","FunctionReturn","RegisterTransfer",
     "SlotToReg","SlotToReg","Branch","Label","Label",
     "FunctionReturn","RegisterTransfer","SlotToReg","SlotToReg","Label",
     "FunctionReturn","RegisterTransfer","Syscall","NilClass"]
  end
end