require_relative "helper"

module SlotMachine
  class TestResolveMethod < SlotMachineInstructionTest
    include Parfait::MethodHelper

    def instruction
      method = make_method
      cache_entry = Parfait::CacheEntry.new(method.frame_type, method)
      ResolveMethod.new( "method" , :name , cache_entry )
    end
    def test_len
      assert_equal 19 , all.length , all_str
    end
    def test_1_load_name
      assert_load 1, Symbol , :r1
      assert_equal :name , risc(1).constant
    end
    def test_2_load_cache
      assert_load 2, Parfait::CacheEntry , :r2
    end
    def test_3_get_cache_type
      assert_slot_to_reg 3,:r2 , 1 , :r3
    end
    def test_4_get_type_methods
      assert_slot_to_reg 4,:r3 , 4 , :r4
    end
    def test_5_start_label
      assert_label 5, "while_start_"
    end
    def test_6_load_nil
      assert_load 6, Parfait::NilClass , :r5
    end
    def test_7_check_nil
      assert_operator 7, :- , :r5 , :r4
    end
    def test_8_nil_branch
      assert_zero 8, "exit_label_"
    end
    def test_9_get_method_name
      assert_slot_to_reg 9,:r4 , 6 , :r6
    end
    #              Syscall, Label, RegToSlot,] #20
    def test_10_check_name
      assert_operator 10, :- , :r6 , :r1
    end
    def test_11_nil_branch
      assert_zero 11, "ok_label_"
    end
    def test_12_get_next_method
      assert_slot_to_reg 12,:r4 , 2 , :r4
    end
    def test_13_continue_while
      assert_branch 13, "while_start_"
    end
    def test_14_goto_exit
      assert_label 14, "exit_label_"
    end
    def test_15_move_name
      assert_transfer( 15, :r1 , :r1)
    end
    def test_16_die
      assert_syscall 16, :died
    end
    def test_17_label
      assert_label 17, "ok_label_"
    end
    def test_18_load_method
      assert_reg_to_slot 18, :r4 , :r2 , 2
    end
  end
end