tests/ds-artists.lisp

   1 (in-package #:clsql-tests)
   2
   3 (clsql-sys:file-enable-sql-reader-syntax)
   4
   5 (defparameter artist1 nil)
   6
   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'"))))
  13
  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))
  18    ;              :ignore
  19    ;         :warn)))
  20   (mapc #'clsql:create-view-from-class
  21           '(artist))
  22
  23   (setq *test-start-utime* (get-universal-time))
  24   (let* ((*db-auto-sync* nil))
  25     (setf  artist1 (make-instance 'artist
  26                                   :name "Mogwai"))))
  27
  28 (def-dataset *ds-artists*
  29   (:setup initialize-ds-artists)
  30   (:cleanup (lambda ()
  31               (mapc #'clsql-sys:drop-view-from-class
  32                     '(artist))
  33               (ignore-errors
  34                 (mapc #'clsql-sys:drop-sequence
  35                       (list "artist_artist_id_seq"))))))
  36