add some tests

1 files changed, 60 insertions, 0 deletions

diff --git a/bank-eiffel/tests/test_person.e b/bank-eiffel/tests/test_person.e
new file mode 100644
index 0000000..f23df03
--- /dev/null
+++ b/bank-eiffel/tests/test_person.e
@@ -0,0 +1,60 @@
+note
+        description: "[
+                Eiffel tests that can be executed by testing tool.
+        ]"
+        author: "EiffelStudio test wizard"
+        date: "$Date$"
+        revision: "$Revision$"
+        testing: "type/manual"
+
+class
+        TEST_PERSON
+
+inherit
+        EQA_TEST_SET
+
+feature -- Test routines
+
+        CREATE_PERSON
+                local
+                        person: PERSON
+                do
+                        create person.make("SOME_SURNAME", "SOME_FIRSTNAME")
+                end
+
+        CREATE_PERSON_NO_SURNAME
+                local
+                        person: PERSON
+                        retried: BOOLEAN
+                do
+                        if not retried then
+                                create person.make("", "SOME_FIRSTNAME")
+                                retried := True
+                                assert("CREATE_PERSON_NO_SURNAME", False)
+                        end
+                rescue
+                        if not retried then
+                                retried := True
+                                retry
+                        end
+                end
+
+        CREATE_PERSON_NO_FIRSTNAME
+                local
+                        person: PERSON
+                        retried: BOOLEAN
+                do
+                        if not retried then
+                                create person.make("SOME_SURNAME", "")
+                                retried := True
+                                assert("CREATE_PERSON_NO_FIRSTNAME", False)
+                        end
+                rescue
+                        if not retried then
+                                retried := True
+                                retry
+                        end
+                end
+end
+
+