ds-artists: new test dataset ds-artists. clsql-tests.asd: add new filee ds-artists...

[clsql.git] / tests / ds-artists.lisp

diff --git a/tests/ds-artists.lisp b/tests/ds-artists.lisp
new file mode 100644 (file)
index 0000000..8fe86d2
--- /dev/null
+++ b/tests/ds-artists.lisp
@@ -0,0 +1,36 @@
+(in-package #:clsql-tests)
+
+#.(clsql:locally-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))))
+
+(defun initialize-ds-artists ()
+   ;   (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
+         '(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"))))))
+
+#.(clsql:restore-sql-reader-syntax-state)