improves method compiler tests

test/vool/compilers/test_all.rb

@@ -1,3 +1,4 @@
 require_relative "helper"
 require_relative "test_ivar_collect"
 require_relative "test_local_collect"
+require_relative "test_method_compiler"

test/vool/compilers/test_method_compiler.rb

@@ -0,0 +1,48 @@
+require_relative "helper"
+
+module Vool
+  class TestVoolCompiler < MiniTest::Test
+    include CompilerHelper
+
+    def setup
+      Risc.machine.boot
+    end
+
+    def create_method
+      VoolCompiler.compile in_Test("def meth; @ivar ;end")
+      test = Parfait.object_space.get_class_by_name(:Test)
+      test.get_method(:meth)
+    end
+
+    def test_method_statement_has_class
+      clazz = VoolCompiler.compile in_Test("def meth; @ivar ;end")
+      assert_equal Parfait::Class , clazz.body.clazz.class
+    end
+    def test_creates_method_in_class
+      method = create_method
+      assert method , "No method created"
+      assert_equal Rubyx::RubyMethod , method.class
+    end
+    def test_method_has_source
+      method = create_method
+      assert_equal Vool::InstanceVariable ,  method.source.class
+    end
+
+    def test_method_has_no_args
+      method = create_method
+      assert_equal 1 , method.args_type.instance_length
+    end
+
+    def test_method_has_no_locals
+      method = create_method
+      assert_equal 1 , method.locals_type.instance_length
+    end
+    def test_method_has_one_local
+      VoolCompiler.compile in_Test("def meth; local = 5 ;end")
+      test = Parfait.object_space.get_class_by_name(:Test)
+      method = test.get_method(:meth)
+      assert_equal 2 , method.locals_type.instance_length
+    end
+
+  end
+end