Add normalized view classes

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

diff --git a/tests/test-fddl.lisp b/tests/test-fddl.lisp
index 0d98c0f552c76147e80ca9d06789e8216cfa1f42..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