Renaming Vool exppressions rightly

Class, Method and Lambda (was block) are expressions.
Just making things clearer, especially for the blocks (ahem, lambdas) is matters.
wip

test/vool/lambdas/helper.rb

@@ -0,0 +1 @@
+require_relative "../helper"

test/vool/lambdas/test_assign.rb

@@ -0,0 +1,84 @@
+require_relative "../helper"
+
+module VoolBlocks
+  class TestAssignMom < MiniTest::Test
+    include VoolCompile
+
+    def setup
+      Parfait.boot!(Parfait.default_test_options)
+      @ins = compile_first_block(  "local = 5" )
+    end
+    def test_block_compiles
+      assert_equal Mom::SlotLoad , @ins.class , @ins
+    end
+    def test_slot_is_set
+      assert @ins.left
+    end
+    def test_slot_starts_at_message
+      assert_equal :message , @ins.left.known_object
+    end
+    def test_slots_left
+      assert_equal [:frame , :local] , @ins.left.slots
+    end
+    def test_slot_assigns_something
+      assert @ins.right
+    end
+    def test_slot_assigns_int
+      assert_equal Mom::IntegerConstant ,  @ins.right.known_object.class
+    end
+  end
+
+  class TestAssignMomInstanceToLocal < MiniTest::Test
+    include VoolCompile
+    def setup
+      Parfait.boot!(Parfait.default_test_options)
+      @ins = compile_first_block( "local = @a" , "@a = 5") #second arg in method scope
+    end
+    def test_class_compiles
+      assert_equal Mom::SlotLoad , @ins.class , @ins
+    end
+    def test_slots_left
+      assert_equal [:frame, :local] , @ins.left.slots
+    end
+    def test_slots_right
+      assert_equal [:receiver, :a] , @ins.right.slots
+    end
+  end
+
+  class TestAssignToArg < MiniTest::Test
+    include VoolCompile
+
+    def setup
+      Parfait.boot!(Parfait.default_test_options)
+      @ins = compile_first_block( "arg = 5")
+    end
+
+    def test_class_compiles
+      assert_equal Mom::SlotLoad , @ins.class , @ins
+    end
+    def test_slot_is_set
+      assert @ins.left
+    end
+    def test_slots_left
+      assert_equal [:caller,:caller, :arguments, :arg] , @ins.left.slots
+    end
+  end
+
+  class TestAssignMomToInstance < MiniTest::Test
+    include VoolCompile
+    def setup
+      Parfait.boot!(Parfait.default_test_options)
+    end
+    def test_assigns_const
+      @ins = compile_first_block( "@a = 5")
+      assert_equal Mom::SlotLoad , @ins.class , @ins
+      assert_equal Mom::IntegerConstant , @ins.right.known_object.class , @ins
+    end
+    def test_assigns_move
+      @ins = compile_first_block( "@a = arg")
+      assert_equal Mom::SlotLoad , @ins.class , @ins
+      assert_equal Mom::SlotDefinition , @ins.right.class , @ins
+    end
+  end
+
+end

test/vool/lambdas/test_class_blocks.rb

@@ -0,0 +1,26 @@
+require_relative "../helper"
+
+module VoolBlocks
+  class TestClassAssignMom < MiniTest::Test
+
+    def setup
+      Parfait.boot!(Parfait.default_test_options)
+    end
+    def as_class_method(source)
+      "class Space;def self.main();#{source};end;end"
+    end
+    def test_block_not_compiles
+      source =  "main{|val| val = 0}"
+      vool = Ruby::RubyCompiler.compile( as_class_method(source) ).to_vool
+      begin
+        vool.to_mom(nil)
+      rescue => err
+        assert err.message.include?("Blocks") , err.message
+      end
+    end
+    def test_assign_compiles
+      vool = Ruby::RubyCompiler.compile( as_class_method("val = 0") ).to_vool
+      assert_equal Mom::MomCollection , vool.to_mom(nil).class
+    end
+  end
+end

test/vool/lambdas/test_if_condition.rb

@@ -0,0 +1,30 @@
+require_relative "helper"
+
+module VoolBlocks
+  class TestConditionIfMom < MiniTest::Test
+    include VoolCompile
+
+    def setup
+      Parfait.boot!(Parfait.default_test_options)
+      Mom::Builtin.boot_functions
+      @ins = compile_first_block( "if(5.div4) ; @a = 6 ; else; @a = 5 ; end")
+    end
+
+    def test_condition
+      assert_equal TruthCheck , @ins.next(3).class
+    end
+    def test_condition_is_slot
+      assert_equal SlotDefinition , @ins.next(3).condition.class , @ins
+    end
+    def test_simple_call
+      assert_equal SimpleCall , @ins.next(2).class
+      assert_equal :div4 , @ins.next(2).method.name
+    end
+    def test_array
+      check_array [MessageSetup, ArgumentTransfer, SimpleCall, TruthCheck, Label ,
+                    SlotLoad, Jump, Label, SlotLoad, Label ,
+                    Label, ReturnSequence, Label] , @ins
+    end
+
+  end
+end

test/vool/lambdas/test_while_simple.rb

@@ -0,0 +1,26 @@
+require_relative "helper"
+
+module VoolBlocks
+  class TestSimpleWhileMom < MiniTest::Test
+    include VoolCompile
+
+    def setup
+      Parfait.boot!(Parfait.default_test_options)
+      @ins = compile_first_block( "while(@a) ; @a = 5 ; end")
+    end
+
+    def test_compiles_as_while
+      assert_equal Label , @ins.class , @ins
+    end
+    def test_condition_compiles_to_check
+      assert_equal TruthCheck , @ins.next.class , @ins
+    end
+    def test_condition_is_slot
+      assert_equal SlotDefinition , @ins.next.condition.class , @ins
+    end
+    def test_array
+      check_array [Label, TruthCheck, SlotLoad, Jump, Label,
+        Label, ReturnSequence, Label], @ins
+    end
+  end
+end