rubyx/test/risc/interpreter/test_dynamic_call.rb

require_relative "helper"

module Risc
  class InterpreterDynamicCall < MiniTest::Test
    include Ticker

    def setup
      @string_input = as_main("a = 15 ; return a.div10")
      super
    end

    def test_chain
      #show_main_ticks # get output of what is
      check_main_chain [Label, LoadConstant, SlotToReg, RegToSlot, LoadConstant,
             SlotToReg, SlotToReg, SlotToReg, OperatorInstruction, IsZero,
             SlotToReg, SlotToReg, LoadConstant, RegToSlot, LoadConstant,
             LoadConstant, SlotToReg, RegToSlot, RegToSlot, SlotToReg,
             SlotToReg, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
             SlotToReg, RegToSlot, SlotToReg, RegToSlot, LoadConstant,
             SlotToReg, RegToSlot, SlotToReg, SlotToReg, SlotToReg,
             SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot,
             SlotToReg, LoadConstant, FunctionCall, Label, SlotToReg,
             SlotToReg, SlotToReg, SlotToReg, SlotToReg, Label,
             LoadConstant, SlotToReg, OperatorInstruction, IsZero, SlotToReg,
             OperatorInstruction, IsNotZero, Label, SlotToReg, Branch,
             Label, LoadConstant, SlotToReg, OperatorInstruction, IsZero,
             SlotToReg, OperatorInstruction, IsNotZero, Label, SlotToReg,
             Branch, Label, LoadConstant, SlotToReg, OperatorInstruction,
             IsZero, SlotToReg, OperatorInstruction, IsNotZero, Label,
             SlotToReg, Branch, Label, LoadConstant, SlotToReg,
             OperatorInstruction, IsZero, SlotToReg, OperatorInstruction, IsNotZero,
             Label, SlotToReg, Branch, Label, LoadConstant,
             SlotToReg, OperatorInstruction, IsZero, SlotToReg, OperatorInstruction,
             IsNotZero, Label, SlotToReg, Branch, Label,
             LoadConstant, SlotToReg, OperatorInstruction, IsZero, SlotToReg,
             OperatorInstruction, IsNotZero, Label, SlotToReg, Branch,
             Label, LoadConstant, SlotToReg, OperatorInstruction, IsZero,
             Label, Transfer, Syscall, NilClass]
      #assert_equal 1 , get_return
    end

    def test_call_main
      call_ins = ticks(26)
      assert_equal FunctionCall , call_ins.class
      assert_equal  :main , call_ins.method.name
    end
    def test_call_resolve
      call_ins = main_ticks(43)
      assert_equal FunctionCall , call_ins.class
      assert_equal  :resolve_method , call_ins.method.name
    end
    def test_label
      call_ins = main_ticks(44)
      assert_equal Label , call_ins.class
      assert_equal  "Word_Type.resolve_method" , call_ins.name
    end
    def test_arg_15_to_resolve
      sl = main_ticks( 47 )
      assert_equal SlotToReg , sl.class
      assert_equal :r2 , sl.array.symbol #load from message
      assert_equal 2 , sl.index
      assert_equal :r2 , sl.register.symbol
      assert_equal Parfait::Integer, @interpreter.get_register( :r2 ).class
      assert_equal 15, @interpreter.get_register( :r2 ).value
    end

    def est_dyn
      cal = main_ticks(76)
      assert_equal DynamicJump ,  cal.class
    end
    #should end in exit, but doesn't, becasue resolve never returns
    def ttest_sys
      sys = ticks(20)
      assert_equal Syscall ,  sys.class
    end
    def ttest_return
      ret = ticks(18)
      assert_equal FunctionReturn ,  ret.class
      link = @interpreter.get_register( ret.register )
      assert_equal Label , link.class
    end
  end
end