Add documentation and contracts for domain types.

test/autotest/test_suite/author.e

@@ -1,4 +1,6 @@
-class AUTHOR
+
+class
+	AUTHOR
 
 create
     make
@@ -6,19 +8,26 @@ create
 feature {NONE} -- Initialization
 
     make (a_name: STRING_32)
+			-- Create an author with `a_name' as `name'.
         do
             set_name (a_name)
+        ensure
+			name_set: name = a_name
         end
 
 feature -- Access
 
     name: STRING_32
+		-- Author name
 
-feature -- Status setting
+feature -- Change
 
     set_name (a_name: STRING_32)
+			-- Set `name' with `a_name'.
         do
             name := a_name
+        ensure
+			name_set: name = a_name
         end
 
 end -- class AUTHOR