more some tests

lib/soml/parfait/layout.soml

@@ -1,7 +1,6 @@
 class Layout < Object
-
+  field Class   object_class
-  Class object_class()
+  field List    instance_methods
-    return self.object_class
+  field Integer indexed_length
-  end
 
 end

lib/soml/parfait/object.soml

@@ -6,7 +6,12 @@ class Object
 
   Class get_class()
     Layout l = self.layout
-    return l.object_class()
+    return l.object_class
   end
 
+  Word get_class_name()
+    Layout l = self.layout
+    Class c = l.object_class
+    return c.name
+  end
 end

test/soml/parfait/test_layout.rb

@@ -25,13 +25,34 @@ class TestLayoutRT < MiniTest::Test
 
   def test_puts_class
     @main = <<HERE
-Class c = get_class()
+Word w = get_class_name()
-Word w = c.get_name()
 w.putstring()
 HERE
     @stdout = "Space"
     check
   end
 
+  def test_puts_layout_space
+    @main = <<HERE
+Layout l = get_layout()
+Word w = l.get_class_name()
+w.putstring()
+HERE
+    @stdout = "Layout"
+    check
+  end
+
+  # copy of register parfait tests, in order
+  def test_message_layout
+    @main = <<HERE
+Message m = self.first_message
+m = m.next_message
+Word w = m.get_class_name()
+w.putstring()
+HERE
+    @stdout = "Message"
+    check
+  end
+
 
 end