require_relative "helper"

module Risc
  class InterpreterDynamicCall < MiniTest::Test
    include Ticker

    def setup
      @string_input = as_main("a = 5 ; return a.div4")
      super
    end

    def test_chain
      #show_main_ticks # get output of what is
      check_main_chain [LoadConstant, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
            SlotToReg, SlotToReg, SlotToReg, OperatorInstruction, IsZero, # 10
            SlotToReg, SlotToReg, SlotToReg, Branch, LoadConstant,
            RegToSlot, LoadConstant, LoadConstant, SlotToReg, SlotToReg, # 20
            LoadConstant, SlotToReg, OperatorInstruction, IsZero, SlotToReg,
            OperatorInstruction, IsZero, Branch, SlotToReg, Branch, # 30
            LoadConstant, SlotToReg, OperatorInstruction, IsZero, SlotToReg,
            OperatorInstruction, IsZero, Branch, SlotToReg, Branch, # 40
            LoadConstant, SlotToReg, OperatorInstruction, IsZero, SlotToReg,
            OperatorInstruction, IsZero, Branch, SlotToReg, Branch, # 50
            LoadConstant, SlotToReg, OperatorInstruction, IsZero, SlotToReg,
            OperatorInstruction, IsZero, Branch, SlotToReg, Branch, # 60
            LoadConstant, SlotToReg, OperatorInstruction, IsZero, SlotToReg,
            OperatorInstruction, IsZero, Branch, SlotToReg, Branch, # 70
            LoadConstant, SlotToReg, OperatorInstruction, IsZero, SlotToReg,
            OperatorInstruction, IsZero, RegToSlot, Branch, LoadConstant, # 80
            SlotToReg, LoadConstant, SlotToReg, SlotToReg, RegToSlot,
            RegToSlot, RegToSlot, RegToSlot, SlotToReg, SlotToReg, # 90
            SlotToReg, RegToSlot, Branch, LoadConstant, SlotToReg,
            RegToSlot, SlotToReg, LoadConstant, SlotToReg, DynamicJump, # 100
            SlotToReg, SlotToReg, LoadData, OperatorInstruction, LoadConstant,
            SlotToReg, SlotToReg, RegToSlot, RegToSlot, RegToSlot, # 110
            SlotToReg, SlotToReg, RegToSlot, Branch, LoadConstant,
            SlotToReg, RegToSlot, RegToSlot, SlotToReg, SlotToReg, # 120
            SlotToReg, FunctionReturn, SlotToReg, SlotToReg, RegToSlot,
            SlotToReg, SlotToReg, RegToSlot, Branch, Branch, # 130
            SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
            RegToSlot, RegToSlot, SlotToReg, SlotToReg, SlotToReg, # 140
            FunctionReturn, Transfer, SlotToReg, SlotToReg, Syscall,
            NilClass, ]
       assert_equal Fixnum , get_return.class
       assert_equal 1 , get_return
    end

    def test_call_main
      call_ins = ticks(main_at)
      assert_equal FunctionCall , call_ins.class
      assert_equal  :main , call_ins.method.name
    end
    def test_load_entry
      call_ins = main_ticks(4)
      assert_equal LoadConstant , call_ins.class
      assert_equal  Parfait::CacheEntry , call_ins.constant.class
    end

    def test_dyn
      cal = main_ticks(100)
      assert_equal DynamicJump ,  cal.class
    end
    def test_return
      ret = main_ticks(141)
      assert_equal FunctionReturn ,  ret.class
      link = @interpreter.get_register( ret.register )
      assert_equal Fixnum , link.class
    end
    def test_sys
      sys = main_ticks(145)
      assert_equal Syscall ,  sys.class
    end
  end
end