X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-init.lisp;h=d98cbf226e4e2ce2490202b7ba0f559b6c8ac5fc;hb=8ee8fd019f504602519a38b78db018b5c1ec1e25;hp=10caf4c16bbb366b654340c35a3e009d75fad1a0;hpb=8a8ee2d7d791b7a3efaed06420802a925d16fca3;p=clsql.git

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index 10caf4c..d98cbf2 100644
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -163,6 +163,17 @@
 				  :retrieval :immediate)))
   (:base-table "ea_join"))
 
+(def-view-class deferred-employee-address ()
+  ((aemplid :type integer :initarg :emplid)
+   (aaddressid :type integer :initarg :addressid)
+   (verified :type boolean :initarg :verified)
+   (address :db-kind :join
+	    :db-info (:join-class address
+				  :home-key aaddressid
+				  :foreign-key addressid
+				  :retrieval :deferred)))
+  (:base-table "ea_join"))
+
 (defun test-connect-to-database (db-type spec)
   (when (clsql-sys:db-backend-has-create/destroy-db? db-type)
     (ignore-errors (destroy-database spec :database-type db-type))
@@ -501,7 +512,7 @@
 				(lisp-implementation-version)
 				(machine-type))))
 	  (when *sexp-report-stream*
-	    (write sexp-error :stream *sexp-report-stream*)) 
+	    (write sexp-error :stream *sexp-report-stream* :readably t)) 
 	  (push sexp-error *error-list*))
 	
 	(format *report-stream* "~&Tests skipped:")