Fix forgotten block compiler

Especially on the way down to risc

test/mom/test_block_compiler.rb

@@ -1,85 +1,23 @@
-require_relative "../helper"
+require_relative "helper"
 
 module Mom
   class TestBlockCompiler < MiniTest::Test
-    include MomCompile
+    include ScopeHelper
 
     def setup
-      Parfait.boot!(Parfait.default_test_options)
-      @ins = compile_first_block( "local = 5")
+      code = as_test_main_block("return 5" , "a = 1")
+      @risc = RubyX::RubyXCompiler.new(RubyX.default_test_options).ruby_to_risc(code)
     end
 
-    def test_block_compiles
-      assert_equal Mom::SlotLoad , @ins.class , @ins
+    def test_collection
+      assert_equal Risc::RiscCollection, @risc.class
     end
-    def test_slot_is_set
-      assert @ins.left
+    def test_main_compiler
+      assert_equal :main , @risc.method_compilers.first.callable.name
     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
+    def test_main_block_compiler
+      assert_equal :main , @risc.method_compilers.first.block_compilers.first.in_method.name
+      assert_equal :main_block , @risc.method_compilers.first.block_compilers.first.callable.name
     end
   end
-
-  class TestAssignMomInstanceToLocal < MiniTest::Test
-    include MomCompile
-    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 MomCompile
-
-    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 MomCompile
-    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