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 20 , all.length , all_str
    end
    def test_1_load_name
      assert_load 1, Parfait::Word , "id_word_"
      assert_equal "name" , risc(1).constant.to_string
    end
    def test_2_load_cache
      assert_load 2, Parfait::CacheEntry , "id_cacheentry_"
    end
    def test_3_get_cache_type
      assert_slot_to_reg 3 , "id_cacheentry_" , 1 , "id_cacheentry_.cached_type"
    end
    def test_4_get_type_methods
      assert_slot_to_reg 4 , "id_cacheentry_.cached_type" , 4 , "id_cacheentry_.cached_type.methods"
    end
    def test_5_start_label
      assert_label 5 , "while_start_"
    end
    def test_6_load_nil
      assert_load 6, Parfait::NilClass , "id_nilclass_"
    end
    def test_7_check_nil
      assert_operator 7, :- , "id_nilclass_" , "id_cacheentry_.cached_type.methods"
    end
    def test_8_nil_branch
      assert_zero 8, "exit_label_"
    end
    def test_9_get_method_name
      assert_slot_to_reg 9, "id_cacheentry_.cached_type.methods" , 6 , "id_cacheentry_.cached_type.methods.name"
    end
    def test_10_check_name
      assert_operator 10, :- , "id_cacheentry_.cached_type.methods.name" , "id_word_"
    end
    def test_11_nil_branch
      assert_zero 11, "ok_label_"
    end
    def test_12_get_next_method
      assert_slot_to_reg 12, "id_cacheentry_.cached_type.methods" , 2 , "id_cacheentry_.cached_type.methods.next_callable"
    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_load_name
      assert_load 15, Parfait::Word , "id_word_"
    end
    def test_16_move_name
      assert_transfer 16, "id_word_" , :r1
    end
    def test_17_sys
      assert_syscall 17, :died
    end
    def test_18_label
      assert_label 18, "ok_label_"
    end
    def test_19_method
      assert_reg_to_slot 19 , "id_cacheentry_.cached_type.methods.next_callable" , "id_cacheentry_" , 2
    end
  end
end