X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-fddl.lisp;h=ab3da3bdf44ba5f835993391014ea05ad1a12a6d;hb=3a3ccc7a171dc4c6c10bc7e3fea8461fca6dc51b;hp=32e645bb277135ae9201299e2c7ff1f4aa86e0e7;hpb=8a8ee2d7d791b7a3efaed06420802a925d16fca3;p=clsql.git

diff --git a/tests/test-fddl.lisp b/tests/test-fddl.lisp
index 32e645b..ab3da3b 100644
--- a/tests/test-fddl.lisp
+++ b/tests/test-fddl.lisp
@@ -28,7 +28,7 @@
            (sort (mapcar #'string-downcase
                          (clsql:list-tables :owner *test-database-user*))
                  #'string<))
-  "addr" "company" "ea_join" "employee" "type_table")
+  "addr" "company" "ea_join" "employee" "type_bigint" "type_table")
 
 ;; create a table, test for its existence, drop it and test again 
 (deftest :fddl/table/2
@@ -81,7 +81,7 @@
 
 ;; Attribute types are vendor specific so need to test a range
 (deftest :fddl/attributes/3
-    (and (member (clsql:attribute-type [emplid] [employee]) '(:int :integer :int4)) t)
+    (and (member (clsql:attribute-type [emplid] [employee]) '(:int :integer :int4 :number)) t)
   t)
 
 (deftest :fddl/attributes/4