more block tests

test/vool/blocks/test_assign.rb

@@ -6,7 +6,6 @@ module VoolBlocks
 
     def setup
       Parfait.boot!
-      Risc::Builtin.boot_functions
       @ins = compile_first_block( "local = 5")
     end
 
@@ -72,12 +71,12 @@ module VoolBlocks
       Parfait.boot!
     end
     def test_assigns_const
-      @ins = compile_first_method( "@a = 5")
+      @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_method( "@a = arg")
+      @ins = compile_first_block( "@a = arg")
       assert_equal Mom::SlotLoad , @ins.class , @ins
       assert_equal Mom::SlotDefinition , @ins.right.class , @ins
     end

test/vool/blocks/test_if_condition.rb

@@ -1,7 +1,7 @@
 require_relative "helper"
 
 module VoolBlocks
-  class TestConditionIfMom #< MiniTest::Test
+  class TestConditionIfMom < MiniTest::Test
     include MomCompile
     include Mom
 

test/vool/blocks/test_while_simple.rb

@@ -0,0 +1,26 @@
+require_relative "helper"
+
+module VoolBlocks
+  class TestSimpleWhileMom < MiniTest::Test
+    include MomCompile
+    include Mom
+
+    def setup
+      Parfait.boot!
+      @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], @ins
+    end
+  end
+end

test/vool/test_assign.rb

@@ -6,7 +6,6 @@ module Vool
 
     def setup
       Parfait.boot!
-      Risc::Builtin.boot_functions
       @ins = compile_first_method( "local = 5")
     end
 

test/vool/test_while_simple.rb

@@ -1,4 +1,3 @@
-
 require_relative "helper"
 
 module Vool