fixing rest of the send test cases

test/vool/to_mom/send/test_send_self.rb

@@ -1,8 +1,10 @@
 require_relative "../helper"
+require_relative "simple_send_harness"
 
 module Vool
   class TestSendSelfMom < MiniTest::Test
     include MomCompile
+    include SimpleSendHarness
 
     def do_setup(str)
       Risc.machine.boot
@@ -13,30 +15,10 @@ module Vool
       do_setup("self.get_internal_word(0)")
     end
 
-    def test_compiles
-      assert_equal Mom::Statements , @stats.class , @stats
-    end
-    def test_compile_starts_with_setup
-      assert_equal Mom::MessageSetup , @stats[0].class , @stats
-    end
-    def test_compile_continues_with_transfer
-      assert_equal Mom::ArgumentTransfer , @stats[1].class , @stats
-    end
-    def test_method_is_set
-      assert @first.method
-    end
-    def test_three_instructions_are_returned
-      assert_equal 3 ,  @stats.length
-    end
-    def test_arg_transfers
-      assert_equal Mom::ArgumentTransfer,  @stats[1].class
-    end
-    def test_receiver_move
-      assert_equal Mom::SlotMove,  @stats[1].receiver.class
-    end
-    def test_receiver_self
+    def test_receiver
       assert_equal SelfStatement,  @stats[1].receiver.right.class
     end
+
     def test_arg_one
       assert_equal Mom::SlotConstant,  @stats[1].arguments[0].class
     end