finishes local assignments to_mom

test/vool/to_mom/test_assignemnt.rb

@@ -6,6 +6,7 @@ module Vool
 
     def setup
       Risc.machine.boot
+      @method = compile_first_method( "a = 5")
     end
 
     def compile_first_method input
@@ -17,8 +18,25 @@ module Vool
     end
 
     def test_class_compiles
-      meth = compile_first_method( "a = 5")
-      assert_equal Mom::SlotLoad , meth.first.class , meth
+      assert_equal Mom::SlotConstant , @method.first.class , @method
+    end
+    def test_slot_is_set
+      assert @method.first.left
+    end
+    def test_slot_starts_at_message
+      assert_equal :message , @method.first.left[0]
+    end
+    def test_slot_gets_self
+      assert_equal :self , @method.first.left[1]
+    end
+    def test_slot_assigns_to_local
+      assert_equal :a , @method.first.left[-1]
+    end
+    def test_slot_assigns_something
+      assert @method.first.right
+    end
+    def test_slot_assigns_int
+      assert_equal IntegerStatement ,  @method.first.right.class
     end
   end
 end