1 (in-package #:clsql-tests)
3 (clsql-sys:file-enable-sql-reader-syntax)
5 (defparameter artist1 nil)
7 (def-view-class artist ()
8 ((artist_id :accessor artist_id :initarg :id
9 :type integer :db-kind :key :db-constraints (:not-null :auto-increment)
10 :autoincrement-sequence 'artist_artist_id_seq)
11 (name :accessor name :initarg :name :type (varchar 20))
12 (genre :accessor genre :initarg :genre :type (varchar 10) :db-constraints (:default "'Unknown'"))))
14 (defun initialize-ds-artists ()
15 ; (start-sql-recording :type :both)
16 ; (let ((*backend-warning-behavior*
17 ; (if (member *test-database-type* '(:postgresql :postgresql-socket))
20 (mapc #'clsql:create-view-from-class
23 (setq *test-start-utime* (get-universal-time))
24 (let* ((*db-auto-sync* nil))
25 (setf artist1 (make-instance 'artist
28 (def-dataset *ds-artists*
29 (:setup initialize-ds-artists)
31 (mapc #'clsql-sys:drop-view-from-class
34 (mapc #'clsql-sys:drop-sequence
35 (list "artist_artist_id_seq"))))))