Added getest based test program

test/getest/author.e

@@ -0,0 +1,24 @@
+class AUTHOR
+    
+create
+    make
+
+feature {NONE} -- Initialization
+
+    make (a_name: UC_STRING) is
+        do
+            set_name (a_name)
+        end
+
+feature -- Access
+
+    name: UC_STRING
+    
+feature -- Status setting
+    
+    set_name (a_name: UC_STRING) is
+        do
+            name := a_name
+        end
+        
+end -- class AUTHOR