X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-fddl.lisp;h=e3dc1b278e31b152d814f6f06657913bf00c5d91;hb=a244caf265fff60cc9d00083e15951762dd7f1ca;hp=ff9dc9e13528effa3fdd6c4886af6f6602741f3a;hpb=e567409d9fff3f7231c2a0bb69b345e19de2b246;p=clsql.git

diff --git a/tests/test-fddl.lisp b/tests/test-fddl.lisp
index ff9dc9e..e3dc1b2 100644
--- a/tests/test-fddl.lisp
+++ b/tests/test-fddl.lisp
@@ -27,7 +27,8 @@
     (sort (mapcar #'string-downcase
                   (clsql:list-tables :owner *test-database-user*))
      #'string<)
-  ("addr" "big" "company" "ea_join" "employee" "type_bigint" "type_table"))
+  ("addr" "big" "company" "ea_join" "employee" "node" "setting"
+   "subloc" "theme" "type_bigint" "type_table" "user"))
 
 ;; create a table, test for its existence, drop it and test again
 (deftest :fddl/table/2
@@ -73,7 +74,7 @@
     (prog1
         (progn
           (clsql:create-table "MyMixedCase" '(([a] integer)))
-          (clsql:execute-command "insert into MyMixedCase values (5)")
+          (clsql:execute-command "insert into \"MyMixedCase\" values (5)")
            (clsql:insert-records :into "MyMixedCase" :values '(6))
            (clsql:select [a] :from "MyMixedCase" :order-by '((a :asc))))
       (clsql:drop-table "MyMixedCase"))