introduces compile time type (ct_type)

to determine whether we can call directly

test/vool/to_mom/send/test_send_simple.rb

@@ -18,12 +18,16 @@ module Vool
     def test_two_instructions_are_returned
       assert_equal 2 ,  @stats.length
     end
-    def test_receiver_class
+    def test_receiver_move_class
       assert_equal Mom::SlotConstant,  @stats.first.class
     end
     def test_receiver_move
       assert_equal :receiver,  @stats.first.left[2]
     end
+    def test_receiver
+      assert_equal IntegerStatement,  @stats.first.right.class
+      assert_equal 5,  @stats.first.right.value
+    end
     def test_call_is
       assert_equal Mom::SimpleCall,  @stats[1].class
     end

test/vool/to_mom/send/test_send_simple_args.rb

@@ -15,25 +15,30 @@ module Vool
     def test_four_instructions_are_returned
       assert_equal 4 ,  @stats.length
     end
-    def test_receiver_class
-      assert_equal Mom::SlotConstant,  @stats.first.class
-    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 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 IntegerStatement,  @stats[2].right.class
       assert_equal 2,    @stats[2].right.value
     end
     def test_call_is

test/vool/to_mom/send/test_send_simple_string.rb

@@ -0,0 +1,44 @@
+require_relative "../helper"
+
+module Vool
+  class TestSendSimpleStringArgsMom < MiniTest::Test
+    include MomCompile
+
+    def setup
+      Risc.machine.boot
+      @stats = compile_first_method( "'5'.get_internal_byte(1)").first
+    end
+
+    def test_class_compiles
+      assert_equal Mom::SlotConstant , @stats.first.class , @stats
+    end
+    def test_four_instructions_are_returned
+      assert_equal 3 ,  @stats.length
+    end
+    def test_receiver_move
+      assert_equal Mom::SlotConstant,  @stats.first.class
+      assert_equal :receiver,  @stats[0].left[2]
+    end
+    def test_receiver
+      assert_equal StringStatement,  @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]
+    end
+    def test_args_one_int
+      assert_equal IntegerStatement,    @stats[1].right.class
+      assert_equal 1,    @stats[1].right.value
+    end
+    def test_call_is
+      assert_equal Mom::SimpleCall,  @stats[2].class
+    end
+    def test_call_has_method
+      assert_equal Parfait::TypedMethod ,  @stats[2].method.class
+    end
+    def test_call_has_right_method
+      assert_equal :get_internal_byte,  @stats[2].method.name
+    end
+  end
+end