X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Fds-employees.lisp;fp=tests%2Fds-employees.lisp;h=26110534d1d8c9b47b866f728f8be52b37ea29e7;hp=1b1e36bafea8268f6c64e987883bdd99ba2f9e1e;hb=c1d990950afa607b9d7e428da384b057fd5c74f3;hpb=31ae82f1e0aefcdd11a25239b6fb21c13d38d9f2

diff --git a/tests/ds-employees.lisp b/tests/ds-employees.lisp
index 1b1e36b..2611053 100644
--- a/tests/ds-employees.lisp
+++ b/tests/ds-employees.lisp
@@ -45,6 +45,10 @@
     :db-constraints :not-null
     :type integer
     :initarg :groupid)
+   (title
+    :accessor title
+    :type symbol
+    :initarg :title)
    (first-name
     :accessor first-name
     :type (varchar 30)
@@ -192,6 +196,7 @@
                                    :emplid 1
                                    :groupid 1
                                    :married t
+                                   :title 'supplicant
                                    :height (1+ (random 1.00))
                                    :bd-utime *test-start-utime*
                                    :birthday now-time
@@ -202,6 +207,7 @@
           employee2 (make-instance 'employee
                                    :emplid 2
                                    :groupid 1
+                                   :title :adherent
                                    :height (1+ (random 1.00))
                                    :married t
                                    :bd-utime *test-start-utime*
@@ -214,6 +220,7 @@
           employee3 (make-instance 'employee
                                    :emplid 3
                                    :groupid 1
+                                   :title 'cl-user::novice
                                    :height (1+ (random 1.00))
                                    :married t
                                    :bd-utime *test-start-utime*