X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-time.lisp;fp=tests%2Ftest-time.lisp;h=47f07095caff03613d475a5a9cf7ba6021925ec7;hb=550692f8d4ee3f416aa82a47712f257c535ad00e;hp=39cc93061bfe5e59520480a82f6bb3022e0e3c23;hpb=cac353a1dbe8d0d6338aa4b94037df131f355538;p=clsql.git

diff --git a/tests/test-time.lisp b/tests/test-time.lisp
index 39cc930..47f0709 100644
--- a/tests/test-time.lisp
+++ b/tests/test-time.lisp
@@ -9,18 +9,20 @@
 #.(clsql-sys:locally-enable-sql-reader-syntax)
 
 (def-view-class datetest ()
-  ((testtimetz :COLUMN "testtimetz" :TYPE
-	       clsql-sys:wall-time :DB-KIND :BASE
-	       :DB-CONSTRAINTS COMMON-LISP:NIL
-	       :ACCESSOR testtimetz :INITARG
-	       :testtimetz :INITFORM COMMON-LISP:NIL
-	       :DB-TYPE "timestamp with time zone")
-   (testtime :COLUMN "testtime" :TYPE
-	     clsql-sys:wall-time :DB-KIND :BASE
-	     :DB-CONSTRAINTS COMMON-LISP:NIL
-	     :ACCESSOR testtime :INITARG
-	     :testtime :INITFORM COMMON-LISP:NIL
-	     :DB-TYPE "timestamp without time zone")))
+e  ((testtimetz :column "testtimetz"
+                :type clsql-sys:wall-time
+                :db-kind :base
+                :db-constraints nil
+	        :accessor testtimetz :initarg :testtimetz
+                :initform nil
+	        :db-type "timestamp with time zone")
+   (testtime :column "testtime"
+             :type clsql-sys:wall-time
+             :db-kind :base
+	     :db-constraints nil
+	     :accessor testtime :initarg :testtime
+             :initform nil
+	     :db-type "timestamp without time zone")))
 
 (def-dataset *ds-datetest*
   (:setup (lambda () (clsql-sys:create-view-from-class 'datetest)))