rubyx/test/register/interpreter/test_called_if.rb

require_relative "helper"

module Register
  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
end