X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fdatasets.lisp;h=42698ec924a313c8564999b74efc1be5c940c699;hb=f67c4e2a4e5b8371a1b7c1629828999ff909f538;hp=1e922411966152eb0deb561148b78ede01695912;hpb=f8a3685cf1911b090510f22eaa0734fb16d3fdb2;p=clsql.git

diff --git a/tests/datasets.lisp b/tests/datasets.lisp
index 1e92241..42698ec 100644
--- a/tests/datasets.lisp
+++ b/tests/datasets.lisp
@@ -67,32 +67,39 @@ should we debug (T) or just print and quit.")
 
 (defun %dataset-init (name)
   "Run initialization code and fill database for given dataset."
-      (handler-bind
-	  ((error #'generic-error))
-	;;find items that looks like '(:setup ...),
-	;; dispatch the rest.
-	(let ((setup (rest (find :setup name :key #'first)))
-	      (sqldata (rest (find :sqldata name :key #'first)))
-	      (objdata (rest (find :objdata name :key #'first))))
-	  (when setup
-	    (%dataset-dispatch setup))
-	  (when sqldata
-	    ;;run raw sql insert statements
-	    (destructuring-bind (table-name columns &rest values-list) sqldata
-	      (dolist (v values-list)
-		(clsql-sys:execute-command
-		 (format nil
-			 "INSERT INTO ~a (~a) VALUES (~a)"
-			 table-name columns v)))))
-	  (when objdata
-	    ;;presumed to be view-class objects, force them to insert.
-	    (dolist (o objdata)
-	      (setf (slot-value o 'clsql-sys::view-database) nil)
-	      (clsql-sys:update-records-from-instance o))))))
+  ;;find items that looks like '(:setup ...),
+  ;; dispatch the rest.
+  (let ((*backend-warning-behavior*
+          (typecase *default-database*
+            (clsql-sys:generic-postgresql-database
+             :ignore)
+            (t *backend-warning-behavior*)))
+        (setup (rest (find :setup name :key #'first)))
+        (sqldata (rest (find :sqldata name :key #'first)))
+        (objdata (rest (find :objdata name :key #'first))))
+    (when setup
+      (handler-bind ((warning
+                       (lambda (c)
+                         (when (eql :ignore *backend-warning-behavior*)
+                           (muffle-warning c)))))
+        (%dataset-dispatch setup)))
+    (when sqldata
+      ;;run raw sql insert statements
+      (destructuring-bind (table-name columns &rest values-list) sqldata
+        (dolist (v values-list)
+          (clsql-sys:execute-command
+           (format nil
+                   "INSERT INTO ~a (~a) VALUES (~a)"
+                   table-name columns v)))))
+    (when objdata
+      ;;presumed to be view-class objects, force them to insert.
+      (dolist (o objdata)
+        (setf (slot-value o 'clsql-sys::view-database) nil)
+        (clsql-sys:update-records-from-instance o)))))
 
 (defun %dataset-cleanup (name)
   "Run cleanup code associated with the given dataset."
-  (restart-case 
+  (restart-case
       (handler-bind ((error #'generic-error))
 	(let ((cleanup (rest (find :cleanup name :key #'first))))
 	  (when cleanup