require_relative "../helper"

module Vool
  # relies on @ins and receiver_type method

  module ClassHarness
    include VoolCompile

    def setup
      Parfait.boot!(Parfait.default_test_options)
      Risc.boot!
      @compiler = compile_first_method( send_method )
      @ins = @compiler.mom_instructions.next
    end

    def test_first_not_array
      assert Array != @ins.class , @ins
    end
    def test_class_compiles
      assert_equal Mom::MessageSetup , @ins.class , @ins
    end
    def test_two_instructions_are_returned
      assert_equal 6 ,  @ins.length , @ins
    end
    def test_receiver_move_class
      assert_equal Mom::ArgumentTransfer,  @ins.next(1).class
    end
    def test_receiver_move
      assert_equal Mom::SlotDefinition,  @ins.next.receiver.class
    end
    def test_receiver
      assert_equal Parfait::Class,  @ins.next.receiver.known_object.class
    end
    def test_call_is
      assert_equal Mom::SimpleCall,  @ins.next(2).class
    end
    def test_call_has_method
      assert_equal Parfait::CallableMethod,  @ins.next(2).method.class
    end
    def test_array
      check_array [MessageSetup,ArgumentTransfer,SimpleCall,Label,
                  ReturnSequence , Label] , @ins
    end
  end

end