require_relative "../helper"

module Risc
  class InterpreterPlusTest < MiniTest::Test
    include Ticker

    def setup
      @string_input = as_main("return 5 + 5")
      super
    end

    def test_add
      #show_main_ticks # get output of what is
      check_main_chain [Label, LoadConstant, LoadConstant, SlotToReg, RegToSlot,
             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
             SlotToReg, RegToSlot, SlotToReg, RegToSlot, SlotToReg,
             RegToSlot, LoadConstant, SlotToReg, RegToSlot, LoadConstant,
             SlotToReg, SlotToReg, RegToSlot, LoadConstant, SlotToReg,
             RegToSlot, SlotToReg, LoadConstant, FunctionCall, Label,
             SlotToReg, SlotToReg, SlotToReg, SlotToReg, SlotToReg,
             OperatorInstruction, LoadConstant, SlotToReg, SlotToReg, RegToSlot,
             RegToSlot, RegToSlot, SlotToReg, SlotToReg, RegToSlot,
             SlotToReg, SlotToReg, FunctionReturn, SlotToReg, SlotToReg,
             RegToSlot, SlotToReg, SlotToReg, RegToSlot, SlotToReg,
             SlotToReg, RegToSlot, SlotToReg, SlotToReg, FunctionReturn,
             Transfer, Syscall, NilClass]
       assert_equal Parfait::Integer , get_return.class
       assert_equal 10 , get_return.value
    end
    def test_load_5
      lod = main_ticks( 20 )
      assert_equal LoadConstant , lod.class
      assert_equal Parfait::Integer , lod.constant.class
      assert_equal 5 , lod.constant.value
    end
    def test_slot_receiver #load receiver from message
      sl = main_ticks( 31 )
      assert_equal SlotToReg , sl.class
      assert_equal :r0 , sl.array.symbol #load from message
      assert_equal 3 , sl.index
      assert_equal :r1 , sl.register.symbol
    end
    def test_slot_args #load args from message
      sl = main_ticks( 32 )
      assert_equal SlotToReg , sl.class
      assert_equal :r0 , sl.array.symbol #load from message
      assert_equal 9 , sl.index
      assert_equal :r2 , sl.register.symbol
    end
    def test_slot_arg #load arg 1, destructively from args
      sl = main_ticks( 33 )
      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
    end
    def test_slot_int1 #load int from object
      sl = main_ticks( 34 )
      assert_equal SlotToReg , sl.class
      assert_equal :r1 , sl.array.symbol #load from message
      assert_equal 3 , sl.index
      assert_equal :r1 , sl.register.symbol
    end
    def test_op
      op = main_ticks(36)
      assert_equal OperatorInstruction , op.class
      assert_equal :r1 , op.left.symbol
      assert_equal :r2 , op.right.symbol
      assert_equal 5 , @interpreter.get_register(:r2)
      assert_equal 10 , @interpreter.get_register(:r1)
    end
    def test_load_int_space
      cons = main_ticks(37)
      assert_equal LoadConstant , cons.class
      assert_equal Parfait::Space , cons.constant.class
      assert_equal :r3 , cons.register.symbol
    end
    def test_load_int_next_space
      sl = main_ticks(38)
      assert_equal SlotToReg , sl.class
      assert_equal :r3 , sl.array.symbol #load from space
      assert_equal 5 , sl.index
      assert_equal :r2 , sl.register.symbol
      assert_equal Parfait::Integer , @interpreter.get_register(:r2).class
    end
    def test_load_int_next_int
      sl = main_ticks(39)
      assert_equal SlotToReg , sl.class
      assert_equal :r2 , sl.array.symbol #load from next_int
      assert_equal 2 , sl.index
      assert_equal :r4 , sl.register.symbol
      assert_equal Parfait::Integer , @interpreter.get_register(:r4).class
    end
    def test_load_int_next_int2
      sl = main_ticks(40)
      assert_equal RegToSlot , sl.class
      assert_equal :r3 , sl.array.symbol #store to space
      assert_equal  5 , sl.index
      assert_equal :r4 , sl.register.symbol
    end
    def test_sys
      sys = main_ticks(62)
      assert_equal Syscall ,  sys.class
      assert_equal :exit ,  sys.name
    end
  end
end