(defparameter employee10 nil)
(defparameter address1 nil)
(defparameter address2 nil)
+(defparameter address3 nil)
(defparameter employee-address1 nil)
(defparameter employee-address2 nil)
(defparameter employee-address3 nil)
(defparameter employee-address4 nil)
(defparameter employee-address5 nil)
+(defparameter employee-address6 nil)
(defclass thing ()
((extraterrestrial :initform nil :initarg :extraterrestrial)))
:db-constraints :not-null
:type integer
:initarg :groupid)
+ (title
+ :accessor title
+ :type symbol
+ :initarg :title)
(first-name
:accessor first-name
:type (varchar 30)
(defun initialize-ds-employees ()
;; (start-sql-recording :type :both)
- (let ((*backend-warning-behavior*
- (if (member *test-database-type* '(:postgresql :postgresql-socket))
- :ignore
- :warn)))
- (mapc #'clsql:create-view-from-class
- '(employee company address employee-address)))
-
+ (mapc #'clsql:create-view-from-class
+ '(employee company address employee-address))
(setq *test-start-utime* (get-universal-time))
(let* ((*db-auto-sync* t)
:emplid 1
:groupid 1
:married t
+ :title 'supplicant
:height (1+ (random 1.00))
:bd-utime *test-start-utime*
:birthday now-time
employee2 (make-instance 'employee
:emplid 2
:groupid 1
+ :title :adherent
:height (1+ (random 1.00))
:married t
:bd-utime *test-start-utime*
employee3 (make-instance 'employee
:emplid 3
:groupid 1
+ :title 'cl-user::novice
:height (1+ (random 1.00))
:married t
:bd-utime *test-start-utime*
:postal-code 123)
address2 (make-instance 'address
:addressid 2)
+ address3 (make-instance 'address
+ :addressid 3)
employee-address1 (make-instance 'employee-address
:emplid 1
:addressid 1
:verified nil)
employee-address5 (make-instance 'employee-address
:emplid 3
- :addressid 2)))
+ :addressid 2)
+ employee-address6 (make-instance 'employee-address
+ :emplid 4
+ :addressid 3)))
;; sleep to ensure birthdays are no longer at current time
;(sleep 1) ;want to find the test that depends on it, put the sleep there.