making types private in space

turned out to be unnecessary, but still better

test/typed/parfait/test_space.rb

@@ -6,6 +6,7 @@ class TestSpace < MiniTest::Test
     @machine = Register.machine.boot
     @space = Parfait.object_space
   end
+
   def classes
     [:Kernel,:Word,:List,:Message,:NamedList,:Type,:Object,:Class,:Dictionary,:TypedMethod , :Integer]
   end
@@ -16,6 +17,7 @@ class TestSpace < MiniTest::Test
   def test_global_space
     assert_equal Parfait::Space , Parfait.object_space.class
   end
+
   def test_integer
     int = Parfait.object_space.get_class_by_name :Integer
     assert_equal 3, int.instance_type.method_names.get_length
@@ -29,7 +31,7 @@ class TestSpace < MiniTest::Test
   end
 
   def test_types
-    assert  @space.types.is_a? Parfait::Dictionary
+    assert  @space.instance_variable_get("@types").is_a? Parfait::Dictionary
   end
 
   def test_types_each
@@ -38,6 +40,13 @@ class TestSpace < MiniTest::Test
     end
   end
 
+  def test_types_hashes
+    types = @space.instance_variable_get("@types")
+    types.each do |has , type|
+      assert has.is_a?(Fixnum) , has.inspect
+    end
+  end
+
   def test_classes_type
     classes.each do |name|
       assert_equal Parfait::Type , @space.classes[name].get_type.class

test/typed/type/test_hash.rb

@@ -5,7 +5,7 @@ class TypeHash < MiniTest::Test
   def setup
     Register.machine.boot
     @space = Parfait.object_space
-    @types = @space.types
+    @types = @space.instance_variable_get("@types")
     @first = @types.values.first
   end
 
@@ -14,7 +14,7 @@ class TypeHash < MiniTest::Test
   end
 
   def test_length
-    assert @types.length > 16
+    assert @types.length > 11
   end
 
   def test_two_hashs_not_equal
@@ -22,12 +22,12 @@ class TypeHash < MiniTest::Test
   end
 
   def test_name
-    assert_equal "Word_Type" , @types.values.first.name
+    assert_equal "BinaryCode_Type" , @types.values.first.name
   end
 
   def test_to_hash
-    assert_equal "Word_Type" ,  @first.name
-    assert_equal :Word ,  @first.object_class.name
+    assert_equal "BinaryCode_Type" ,  @first.name
+    assert_equal :BinaryCode ,  @first.object_class.name
     hash = @first.to_hash
     assert_equal :Type , @first.types.first
     assert_equal hash[:type] , :Type