simple test for dynamic call

lib/common/statements.rb

@@ -31,5 +31,8 @@ module Common
       @statements.each { |s| s.collect(arr) }
       super
     end
+    def add_array(a)
+      @statements += a
+    end
   end
 end

lib/mom/while_statement.rb

@@ -10,7 +10,7 @@ module Mom
       @statements = statements
     end
 
-    def flatten
+    def flatten(options = {})
       cond_label = Label.new( "cond_label_#{object_id}")
       head = cond_label
       head.append hoisted.flatten

lib/vool/statements/send_statement.rb

@@ -77,7 +77,8 @@ module Vool
       # if cached_type != current_type
       #   cached_type = current_type
       #   cached_method = current_type.resolve_method(method.name)
-      if_true = [*build_type_cache_update , *build_method_cache_update(in_method)]
+      if_true = Mom::Statements.new(build_type_cache_update)
+      if_true.add_array build_method_cache_update(in_method)
       #@if_true.to_mom( in_method ) #find and assign
       [Mom::IfStatement.new( build_condition , if_true )]
     end

lib/vool/vool_compiler.rb

@@ -8,5 +8,9 @@ module Vool
       statements.create_objects
       statements
     end
+    def self.ruby_to_mom(source)
+      statements = elf.ruby_to_vool(source)
+      statements.to_mom
+    end
   end
 end

test/mom/test_dynamic_call_statement.rb

@@ -0,0 +1,29 @@
+require_relative "helper"
+
+module Mom
+  class TestCall < MiniTest::Test
+    include MomCompile
+
+    def setup
+      Risc.machine.boot
+      @stats = compile_first_method_flat( "a = 5; a.mod4")
+      @first = @stats.next
+    end
+
+    def test_if_compiles
+      assert_equal  @stats.last.class , DynamicCall , @stats
+    end
+    def test_check
+      assert_equal NotSameCheck , @first.class
+    end
+    def test_condition_is_slot
+      assert_equal SlotDefinition , @first.left.class , @first
+    end
+    def test_length
+      assert_equal 12 , @stats.length
+    end
+    def test_array
+      check_array [SlotConstant,NotSameCheck,Label,SlotMove,MessageSetup,ArgumentTransfer,SimpleCall,SlotMove,Label,MessageSetup,ArgumentTransfer,DynamicCall] , @stats
+    end
+  end
+end