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

diff --git a/tests/ds-artists.lisp b/tests/ds-artists.lisp
index 8fe86d2..f4d3271 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,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)