removed unused/uncompiled atol64

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

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