Update domain name to kpe.io

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

diff --git a/tests/ds-artists.lisp b/tests/ds-artists.lisp
index 8fe86d2ec2cc4ddcbd6f5752f43284e07c3d52f4..f4d327103b2897a9173da9a020d1f8fd862cdc48 100644 (file)
--- a/tests/ds-artists.lisp
+++ b/tests/ds-artists.lisp
@@ -1,6 +1,6 @@
 (in-package #:clsql-tests)
 
-#.(clsql:locally-enable-sql-reader-syntax)
+(clsql-sys:file-enable-sql-reader-syntax)
 
 (defparameter artist1 nil)
 
@@ -8,14 +8,10 @@
   ((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))))
+   (name :accessor name :initarg :name :type (varchar 20))
+   (genre :accessor genre :initarg :genre :type (varchar 10) :db-constraints (:default "'Unknown'"))))
 
 (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))
 
@@ -33,4 +29,3 @@
                (mapc #'clsql-sys:drop-sequence
                      (list "artist_artist_id_seq"))))))
 
-#.(clsql:restore-sql-reader-syntax-state)