projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use modern ASDF test-op
[clsql.git]
/
tests
/
ds-employees.lisp
diff --git
a/tests/ds-employees.lisp
b/tests/ds-employees.lisp
index 1b1e36bafea8268f6c64e987883bdd99ba2f9e1e..26110534d1d8c9b47b866f728f8be52b37ea29e7 100644
(file)
--- a/
tests/ds-employees.lisp
+++ b/
tests/ds-employees.lisp
@@
-45,6
+45,10
@@
:db-constraints :not-null
:type integer
:initarg :groupid)
:db-constraints :not-null
:type integer
:initarg :groupid)
+ (title
+ :accessor title
+ :type symbol
+ :initarg :title)
(first-name
:accessor first-name
:type (varchar 30)
(first-name
:accessor first-name
:type (varchar 30)
@@
-192,6
+196,7
@@
:emplid 1
:groupid 1
:married t
:emplid 1
:groupid 1
:married t
+ :title 'supplicant
:height (1+ (random 1.00))
:bd-utime *test-start-utime*
:birthday now-time
: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
employee2 (make-instance 'employee
:emplid 2
:groupid 1
+ :title :adherent
:height (1+ (random 1.00))
:married t
:bd-utime *test-start-utime*
:height (1+ (random 1.00))
:married t
:bd-utime *test-start-utime*
@@
-214,6
+220,7
@@
employee3 (make-instance 'employee
:emplid 3
:groupid 1
employee3 (make-instance 'employee
:emplid 3
:groupid 1
+ :title 'cl-user::novice
:height (1+ (random 1.00))
:married t
:bd-utime *test-start-utime*
:height (1+ (random 1.00))
:married t
:bd-utime *test-start-utime*