fixing indexed stuff

layout returns layout as first name (offsets indexes)
object internal length is gone  into layouts functionality

test/compiler/statements/test_assign.rb

@@ -74,7 +74,7 @@ HERE
     was = check
     get = was.next(6)
     assert_equal GetSlot , get.class
-    assert_equal 3, get.index , "Get to frame index must be offset, not #{get.index}"
+    assert_equal 4, get.index , "Get to frame index must be offset, not #{get.index}"
   end
 
   def test_assign_arg
@@ -90,7 +90,7 @@ HERE
     was = check
     set = was.next(3)
     assert_equal SetSlot , set.class
-    assert_equal 9, set.index , "Set to args index must be offset, not #{set.index}"
+    assert_equal 10, set.index , "Set to args index must be offset, not #{set.index}"
   end
 
   def test_assign_int
@@ -105,7 +105,7 @@ HERE
     was = check
     set = was.next(4)
     assert_equal SetSlot , set.class
-    assert_equal 3, set.index , "Set to frame index must be offset, not #{set.index}"
+    assert_equal 4, set.index , "Set to frame index must be offset, not #{set.index}"
   end
 
   def test_arg_get
@@ -122,7 +122,7 @@ HERE
     was = check
     get = was.next(2)
     assert_equal GetSlot , get.class
-    assert_equal 9, get.index , "Get to frame index must be offset, not #{get.index}"
+    assert_equal 10, get.index , "Get to frame index must be offset, not #{get.index}"
   end
 end
 end

test/compiler/statements/test_call.rb

@@ -100,7 +100,7 @@ HERE
     was = check
     set = was.next(8)
     assert_equal SetSlot , set.class
-    assert_equal 9, set.index , "Set to message must be offset, not #{set.index}"
+    assert_equal 10, set.index , "Set to message must be offset, not #{set.index}"
   end
 end
 end

test/parfait/test_attributes.rb

@@ -12,7 +12,7 @@ class TestAttributes < MiniTest::Test
   end
   def test_message_layout_first
     @layout.object_class = :next_message
-    assert_equal :next_message , @layout.object_instance_names.first
+    assert_equal :layout , @layout.object_instance_names.first
     assert_equal :next_message , @layout.object_class
   end
   def test_message_name_nil

test/parfait/test_layout.rb

@@ -21,7 +21,7 @@ class TestLayout < MiniTest::Test
   end
 
   def test_layout_index
-    assert_equal @mess.get_layout , @mess.internal_object_get(1) , "mess"
+    assert_equal @mess.get_layout , @mess.internal_object_get(0) , "mess"
   end
 
   def test_forbidden_index_of
@@ -36,10 +36,14 @@ class TestLayout < MiniTest::Test
     assert_equal 1 , layout.variable_index(:layout)
   end
 
+  def test_length
+    assert_equal 8 , @mess.get_layout.object_instance_length , @mess.get_layout.inspect
+  end
+
   def test_no_index_below_1
     layout = @mess.get_layout
     names = layout.object_instance_names
-    assert_equal 7 , names.get_length , names.inspect
+    assert_equal 8 , names.get_length , names.inspect
     names.each do |n|
       assert layout.variable_index(n) >= 1
     end
@@ -50,8 +54,8 @@ class TestLayout < MiniTest::Test
     assert_equal Parfait::Class , oc.class
     layout = oc.object_layout
     assert_equal Parfait::Layout , layout.class
-    assert_equal layout.object_instance_names.get_length , 0
-    #assert_equal layout.first , :layout
+    assert_equal 1 , layout.object_instance_names.get_length
+    assert_equal layout.first , :layout
   end
 
   def test_attribute_set
@@ -73,6 +77,6 @@ class TestLayout < MiniTest::Test
 
   def test_remove_me
     layout = @mess.get_layout
-    assert_equal layout , @mess.internal_object_get(1)
+    assert_equal layout , @mess.internal_object_get(0)
   end
 end

test/parfait/test_object.rb

@@ -7,7 +7,7 @@ class TestObject < MiniTest::Test
   end
 
   def test_object_create
-    assert_equal 1 ,  @object.internal_object_length
+    assert_equal 1 ,  @object.get_layout.object_instance_length
   end
 
   def test_empty_object_doesnt_return
@@ -18,18 +18,10 @@ class TestObject < MiniTest::Test
     assert_equal 1 ,  @object.internal_object_set(1,1)
   end
 
-  def test_set1_len
-     @object.internal_object_set(1,1)
-    assert_equal 1 ,  @object.internal_object_length
-  end
-
   def test_one_set2
     assert_equal :some ,  @object.internal_object_set(2,:some)
   end
-  def test_set2_len
-     @object.internal_object_set(2,:some)
-    assert_equal 2 ,  @object.internal_object_length
-  end
+
   def test_two_sets
     assert_equal 1 ,  @object.internal_object_set(1,1)
     assert_equal :some ,  @object.internal_object_set(1,:some)