require_relative "helper"

module Mom
  class TestResolveMethod < MomInstructionTest
    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 risc(1) , Symbol , :r1
      assert_equal :name , risc(1).constant
    end
    def test_2_load_cache
      assert_load risc(2) , Parfait::CacheEntry , :r2
    end
    def test_3_get_cache_type
      assert_slot_to_reg risc(3) ,:r2 , 1 , :r3
    end
    def test_4_get_type_methods
      assert_slot_to_reg risc(4) ,:r3 , 4 , :r4
    end
    def test_5_start_label
      assert_label risc(5) , "while_start_"
    end
    def test_6_load_nil
      assert_load risc(6) , Parfait::NilClass , :r5
    end
    def test_7_check_nil
      assert_operator risc(7) , :- , :r5 , :r4
    end
    def test_8_nil_branch
      assert_zero risc(8) , "exit_label_"
    end
    def test_9_get_method_name
      assert_slot_to_reg risc(9) ,:r4 , 6 , :r6
    end
    #              Syscall, Label, RegToSlot,] #20
    def test_10_check_name
      assert_operator risc(10) , :- , :r6 , :r1
    end
    def test_11_nil_branch
      assert_zero risc(11) , "ok_label_"
    end
    def test_12_get_next_method
      assert_slot_to_reg risc(12) ,:r4 , 2 , :r4
    end
    def test_13_continue_while
      assert_branch risc(13) , "while_start_"
    end
    def test_14_goto_exit
      assert_label risc(14) , "exit_label_"
    end
    def test_15_move_name
      assert_transfer( risc(15) , :r1 , :r1)
    end
    def test_16_die
      assert_syscall risc(16) , :died
    end
    def test_17_label
      assert_label risc(17) , "ok_label_"
    end
    def test_18_load_method
      assert_reg_to_slot risc(18) , :r4 , :r2 , 2
    end
  end
end