Last mom instruction test

test/mom/instruction/test_check.rb

@@ -1,46 +0,0 @@
-require_relative "helper"
-
-module Mom
-  class TestNotSameCheck < MomInstructionTest
-    def instruction
-      target = SlotDefinition.new(:message , :caller)
-      NotSameCheck.new(target , target , Label.new("ok" , "land"))
-    end
-    def test_len
-      assert_equal 5 , all.length , all_str
-    end
-    def test_2_slot
-      assert_slot_to_reg risc(2) ,:r0 , 1 , :r2
-    end
-  end
-#  [Label, SlotToReg, SlotToReg, OperatorInstruction, IsZero,] #5
-end
-module X
-  class Y
-    def test_1_load
-      assert_load risc(1) , Risc::Label , :r1
-      assert_label risc(1).constant , "continue_"
-    end
-    def test_2_slot
-      assert_slot_to_reg risc(2) ,:r0 , 1 , :r2
-    end
-    def test_3_reg
-      assert_reg_to_slot risc(3) , :r1 , :r2 , 4
-    end
-    def test_4_slot
-      assert_slot_to_reg risc(4) ,:r0 , 1 , :r0
-    end
-    def test_5_load
-      assert_load risc(5) , Parfait::CacheEntry , :r3
-    end
-    def test_6_slot
-      assert_slot_to_reg risc(6) ,:r3 , 2 , :r3
-    end
-    def test_7_jump
-      assert_equal Risc::DynamicJump , risc(7).class
-    end
-    def test_8_label
-      assert_label risc(8) , "continue_"
-    end
-  end
-end

test/mom/instruction/test_simple_call.rb

@@ -0,0 +1,34 @@
+require_relative "helper"
+
+module Mom
+  class TestSimpleCall <  MomInstructionTest
+    include Parfait::MethodHelper
+
+    def instruction
+      SimpleCall.new( make_method )
+    end
+    def test_len
+      assert_equal 7 , all.length , all_str
+    end
+    def test_1_load_return_label
+      assert_load risc(1) , Risc::Label , :r1
+      assert_label risc(1).constant , "continue_"
+    end
+    def test_2_load_next_message
+      assert_slot_to_reg risc(2) ,:r0 , 1 , :r2
+    end
+    def test_3_store_return_address
+      assert_reg_to_slot risc(3) , :r1 , :r2 , 4
+    end
+    def test_4_swap_messages
+      assert_slot_to_reg risc(4) ,:r0 , 1 , :r0
+    end
+    def test_5_call
+      assert_equal Risc::FunctionCall , risc(5).class
+      assert_equal :meth , risc(5).method.name
+    end
+    def test_6_label
+      assert_label risc(6) , "continue_"
+    end
+  end
+end