fix integer and data object get/set word

instance variables first, then raw data
keep value reader for now

test/parfait/test_integer.rb

@@ -0,0 +1,48 @@
+require_relative "../helper"
+
+module Parfait
+  class TestInteger < MiniTest::Test
+
+    def setup
+      Risc.machine.boot
+      @int = Integer.new(10)
+    end
+
+    def test_class
+      assert_equal :Integer, @int.get_type.object_class.name
+    end
+    def test_next_nil
+      assert_nil @int.next_integer
+    end
+    def test_next_not_nil
+      int2 = Integer.new(0 , @int)
+      assert_equal Integer,  int2.next_integer.class
+    end
+    def test_value_10
+      assert_equal 10 , @int.value
+    end
+    def test_word_value_10
+      assert_equal 10 , @int.get_internal_word( Integer.integer_index )
+    end
+    def test_word_settable
+      assert_equal 20 , @int.set_internal_word( Integer.integer_index , 20 )
+    end
+    def test_word_set
+      assert_equal 20 , @int.set_internal_word( Integer.integer_index , 20 )
+      assert_equal 20 , @int.get_internal_word( Integer.integer_index )
+    end
+    def test_integer_first
+      assert Parfait.object_space.next_integer
+    end
+    def test_integer_20
+      int = Parfait.object_space.next_integer
+      20.times do
+        assert int
+        assert_equal Parfait::Integer , int.class
+        assert int.get_internal_word(2)
+        int = int.next_integer
+      end
+    end
+
+  end
+end

test/parfait/test_space.rb

@@ -22,17 +22,6 @@ class TestSpace < MiniTest::Test
     assert @space.false_object , "No lies"
     assert @space.nil_object , "No nothing"
   end
-  def test_integer_first
-    assert @space.next_integer
-  end
-  def test_integer_20
-    int = @space.next_integer
-    20.times do
-      assert int
-      assert_equal Parfait::Integer , int.class
-      int = int.next_integer
-    end
-  end
   def test_methods_booted
     word = @space.get_class_by_name(:Word).instance_type
     assert_equal 4 , word.method_names.get_length