X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fds-artists.lisp;h=6b657058d48c2e2f6d36d62313d66bf5b52591b8;hb=0b757e652eda05d8d824438d925665f17e764d93;hp=8fe86d2ec2cc4ddcbd6f5752f43284e07c3d52f4;hpb=1011d4f44384e10f45ea0268e5c7fc759f417d3e;p=clsql.git

diff --git a/tests/ds-artists.lisp b/tests/ds-artists.lisp
index 8fe86d2..6b65705 100644
--- 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,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)
@@ -33,4 +34,3 @@
  		(mapc #'clsql-sys:drop-sequence
  		      (list "artist_artist_id_seq"))))))
 
-#.(clsql:restore-sql-reader-syntax-state)