2 files changed, 90 insertions, 0 deletions

diff --git a/bank-eiffel/tests/test_account.e b/bank-eiffel/tests/test_account.e
new file mode 100644
index 0000000..1820c45
--- /dev/null
+++ b/bank-eiffel/tests/test_account.e
@@ -0,0 +1,30 @@
+note
+        description: "[
+                Eiffel tests that can be executed by testing tool.
+        ]"
+        author: "EiffelStudio test wizard"
+        date: "$Date$"
+        revision: "$Revision$"
+        testing: "type/manual"
+
+class
+        TEST_ACCOUNT
+
+inherit
+        EQA_TEST_SET
+
+feature -- Test routines
+
+        CREATE_ACCOUNT
+                        -- New test routine
+                local
+                        person1: PERSON
+                        account: ACCOUNT
+                do
+                        create person1.make ("VORNAME", "NACHNAME")
+                        --assert ("not_implemented", False)
+                end
+
+end
+
+
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
+
+