fixing rest of the send test cases

test/vool/to_mom/send/test_send_simple_args.rb

@@ -1,57 +1,26 @@
 require_relative "../helper"
+require_relative "simple_send_harness"
 
 module Vool
   class TestSendSimpleArgsMom < MiniTest::Test
     include MomCompile
+    include SimpleSendHarness
 
     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
+    def receiver
+      [IntegerStatement , 5]
     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]
+      assert_equal :next_message, @stats[1].arguments[1].left[1]
+      assert_equal :arguments,    @stats[1].arguments[1].left[2]
     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
+    def test_args_two_str
+      assert_equal IntegerStatement,    @stats[1].arguments[1].right.class
+      assert_equal 2,    @stats[1].arguments[1].right.value
     end
   end
 end