Added getest based test program

2010-03-08 23:46:59 +00:00
parent b389d532b7
commit 11256d697d
13 changed files with 1234 additions and 0 deletions
--- a/test/getest/book.e
+++ b/test/getest/book.e
@@ -0,0 +1,40 @@
+class BOOK
+    
+create
+    make
+
+feature {NONE} -- Initialization
+
+    make (a_title: UC_STRING; an_author: AUTHOR; an_isbn: UC_STRING) is
+        do
+            set_title (a_title)
+            set_author (an_author)
+            set_isbn (an_isbn)
+        end
+
+feature -- Access
+
+    title: UC_STRING
+
+    isbn: UC_STRING
+
+    author: AUTHOR
+    
+feature -- Status setting
+    
+    set_title (a_title: UC_STRING) is
+        do
+            title := a_title
+        end
+        
+    set_author (an_author: AUTHOR) is
+        do
+            author := an_author
+        end
+
+    set_isbn (an_isbn: UC_STRING) is
+        do
+            isbn := an_isbn
+        end
+
+end -- class BOOK