require_relative "../helper"

module Vool
  class TestSendSimpleArgsMom < MiniTest::Test
    include MomCompile

    def setup
      Risc.machine.boot
      @stats = compile_first_method( "5.mod4(1,2)").first
    end

    def test_stats
      assert_equal Mom::Statements , @stats.class
    end
    def test_class_compiles
      assert_equal Mom::SlotConstant , @stats.first.class , @stats
    end
    def test_four_instructions_are_returned
      assert_equal 4 ,  @stats.length
    end
    def test_receiver_move
      assert_equal Mom::SlotConstant,  @stats[0].class
      assert_equal :receiver,  @stats[0].left[2]
    end
    def test_receiver
      assert_equal IntegerStatement,  @stats[0].right.class
      assert_equal 5,  @stats[0].right.value
    end
    def test_args_one_move
      assert_equal :next_message, @stats[1].left[1]
      assert_equal :arguments,    @stats[1].left[2]
      assert_equal 0 ,    @stats[1].left[3]
    end
    def test_args_one_int
      assert_equal IntegerStatement, @stats[1].right.class
      assert_equal 1,    @stats[1].right.value
    end
    def test_args_two_move
      assert_equal :next_message, @stats[2].left[1]
      assert_equal :arguments,  @stats[2].left[2]
      assert_equal 1 ,  @stats[2].left[3]
    end
    def test_args_two_int
      assert_equal IntegerStatement,  @stats[2].right.class
      assert_equal 2,    @stats[2].right.value
    end
    def test_call_is
      assert_equal Mom::SimpleCall,  @stats[3].class
    end
    def test_call_has_method
      assert_equal Parfait::TypedMethod ,  @stats[3].method.class
    end
    def test_call_has_right_method
      assert_equal :mod4,  @stats[3].method.name
    end
  end
end