X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-fddl.lisp;h=41e79d527441ec45745372bd748894dfd8852ef6;hp=8a6ae887229e08f0932ee532d1d6beb9a115e807;hb=0b35694f3659e5ee739ea72ce74d798c3f0ddb73;hpb=2645bad6c8673a32408801e7ea1f8a02a1583d7d

diff --git a/tests/test-fddl.lisp b/tests/test-fddl.lisp
index 8a6ae88..41e79d5 100644
--- a/tests/test-fddl.lisp
+++ b/tests/test-fddl.lisp
@@ -44,9 +44,11 @@ B varchar(32))")
 ;; list current tables
 (deftest :fddl/table/1
     (with-dataset *ds-fddl*
-      (sort (mapcar #'string-downcase
-		    (clsql:list-tables ))
-	    #'string<))
+      (let ((tables (sort (mapcar #'string-downcase (clsql:list-tables))
+                          #'string<)))
+        ;; sqlite has a table for autoincrement sequences that we dont care about if
+        ;; it exists
+        (remove "sqlite_sequence" tables :test #'string-equal)))
   ("alpha" "bravo"))
 
 ;; create a table, test for its existence, drop it and test again
@@ -105,7 +107,7 @@ B varchar(32))")
      (progn
        (let ((*backend-warning-behavior*
 	      (if (member *test-database-type*
-			  '(:postgresql :postgresql-socket))
+			  '(:postgresql :postgresql-socket :postgresql-socket3))
 		  :ignore
 		  :warn)))
 	 (case *test-database-underlying-type*
@@ -127,7 +129,7 @@ B varchar(32))")
      (progn
        (let ((*backend-warning-behavior*
 	      (if (member *test-database-type*
-			  '(:postgresql :postgresql-socket))
+			  '(:postgresql :postgresql-socket :postgresql-socket3))
 		  :ignore
 		  :warn)))
 	 (clsql:create-table [foo] '(([bar] integer :not-null)
@@ -168,7 +170,8 @@ B varchar(32))")
     (with-dataset *ds-fddl*
       (multiple-value-bind (type length scale nullable)
 	  (clsql:attribute-type [c] [alpha])
-	(values (clsql-sys:in type :varchar :varchar2) length scale nullable)))
+	(values (clsql-sys:in type :varchar :varchar2 :nvarchar)
+                length scale nullable)))
   t 30 nil 1)
 
 (deftest :fddl/attributes/5