Changes to more broadly support auto-increment. new odbc-postgresql-database type
[clsql.git] / tests / ds-employees.lisp
index 55312a4e9cb35b6a455d3273d4bd3cee2854c249..1b1e36bafea8268f6c64e987883bdd99ba2f9e1e 100644 (file)
 
 (defun initialize-ds-employees ()
   ;;  (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
-         '(employee company address employee-address)))
-    
+  (mapc #'clsql:create-view-from-class
+        '(employee company address employee-address))
 
   (setq *test-start-utime* (get-universal-time))
   (let* ((*db-auto-sync* t)