Add support for :default in db constraints. make-constraint-description: use next...

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

diff --git a/tests/ds-artists.lisp b/tests/ds-artists.lisp
index 8fe86d2ec2cc4ddcbd6f5752f43284e07c3d52f4..4637fde97a31919d45c45d2d35a3ef2d8a327285 100644 (file)
--- a/tests/ds-artists.lisp
+++ b/tests/ds-artists.lisp
@@ -8,7 +8,8 @@
   ((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)