wit metaclass and class functions

needs to go back to arrays first

test/parfait/test_all.rb

@@ -6,4 +6,5 @@ require_relative "test_word"
 require_relative "test_dictionary"
 require_relative "test_method"
 require_relative "test_class"
+require_relative "test_meta"
 require_relative "test_attributes"

test/parfait/test_meta.rb

@@ -0,0 +1,66 @@
+require_relative "../helper"
+
+class TestMeta < MiniTest::Test
+
+  def setup
+    @space = Register.machine.boot.space
+    @try = @space.create_class(:Try , :Object).meta
+  end
+
+  def foo_method for_class = :Try
+    args = Register.new_list [ Parfait::Variable.new(:Integer , :bar )]
+    ::Parfait::Method.new @space.get_class_by_name(for_class) , :foo , args
+  end
+
+  def test_meta
+    assert @try
+  end
+  def test_meta_object
+    assert @space.get_class_by_name(:Object).meta
+  end
+
+  def test_new_superclass
+    assert_equal Parfait::MetaClass , @try.super_class.class
+    assert_equal :MetaObject , @try.super_class.name
+  end
+  def pest_new_methods
+    assert_equal @try.method_names.class, @try.instance_methods.class
+    assert_equal @try.method_names.get_length , @try.instance_methods.get_length
+  end
+  def pest_add_method
+    foo = foo_method
+    assert_equal foo , @try.add_instance_method(foo)
+    assert_equal 1 , @try.instance_methods.get_length
+    assert_equal ":foo" , @try.method_names.inspect
+  end
+  def pest_remove_method
+    pest_add_method
+    assert_equal true , @try.remove_instance_method(:foo)
+  end
+  def pest_remove_nothere
+    assert_raises RuntimeError do
+       @try.remove_instance_method(:foo)
+    end
+  end
+  def pest_create_method
+    @try.create_instance_method :bar, Register.new_list( [ Parfait::Variable.new(:Integer , :bar )])
+    assert_equal ":bar" , @try.method_names.inspect
+  end
+  def pest_method_get
+    pest_add_method
+    assert_equal Parfait::Method , @try.get_instance_method(:foo).class
+  end
+  def pest_method_get_nothere
+    assert_equal nil , @try.get_instance_method(:foo)
+    pest_remove_method
+    assert_equal nil , @try.get_instance_method(:foo)
+  end
+  def pest_resolve
+    foo = foo_method :Object
+    @space.get_class_by_name(:Object).add_instance_method(foo)
+    assert_equal :foo , @try.resolve_method(:foo).name
+  end
+  def pest_meta
+    assert @try.meta_class
+  end
+end