blob: f4d327103b2897a9173da9a020d1f8fd862cdc48 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
(in-package #:clsql-tests)
(clsql-sys:file-enable-sql-reader-syntax)
(defparameter artist1 nil)
(def-view-class artist ()
((artist_id :accessor artist_id :initarg :id
:type integer :db-kind :key :db-constraints (:not-null :auto-increment)
:autoincrement-sequence 'artist_artist_id_seq)
(name :accessor name :initarg :name :type (varchar 20))
(genre :accessor genre :initarg :genre :type (varchar 10) :db-constraints (:default "'Unknown'"))))
(defun initialize-ds-artists ()
(mapc #'clsql:create-view-from-class
'(artist))
(setq *test-start-utime* (get-universal-time))
(let* ((*db-auto-sync* nil))
(setf artist1 (make-instance 'artist
:name "Mogwai"))))
(def-dataset *ds-artists*
(:setup initialize-ds-artists)
(:cleanup (lambda ()
(mapc #'clsql-sys:drop-view-from-class
'(artist))
(ignore-errors
(mapc #'clsql-sys:drop-sequence
(list "artist_artist_id_seq"))))))
|