r9261: more :base-table testing

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

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index a1f700e90c0f5374cf8d6ce087df1c2458c19cab..730169132db572e594d56de0d4ff815e6376ea4a 100644 (file)
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -124,9 +124,7 @@
     :db-info (:join-class employee
                          :home-key (companyid groupid)
                          :foreign-key (ecompanyid groupid)
-                         :set t)))
-  (:base-table company))
-
+                         :set t))))
 
 (def-view-class address ()
   ((addressid
@@ -150,7 +148,8 @@
     :column "zip"
     :type integer
     :void-value 0
-    :initarg :postal-code)))
+    :initarg :postal-code))
+  (:base-table addr))
 
 ;; many employees can reside at many addressess
 (def-view-class employee-address ()