Add normalized view classes

[clsql.git] / tests / test-fddl.lisp

diff --git a/tests/test-fddl.lisp b/tests/test-fddl.lisp
index ff9dc9e13528effa3fdd6c4886af6f6602741f3a..e3dc1b278e31b152d814f6f06657913bf00c5d91 100644 (file)
--- 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"))