From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Thu, 6 May 2004 03:58:36 +0000 (+0000)
Subject: r9261: more :base-table testing
X-Git-Tag: v3.8.6~501
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=792574509621ab4ed0279db1483c5af1c78df93b

r9261: more :base-table testing
---

diff --git a/tests/test-fddl.lisp b/tests/test-fddl.lisp
index 7109484..2db453f 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<))
-  "address" "company" "ea_join" "employee" "type_table")
+  "addr" "company" "ea_join" "employee" "type_table")
 
 ;; create a table, test for its existence, drop it and test again 
 (deftest :fddl/table/2
@@ -64,7 +64,7 @@
            (sort 
             (mapcar #'string-downcase
                     (clsql:list-attributes [employee]
-                                          :owner *test-database-user*))
+					   :owner *test-database-user*))
             #'string<))
   "birthday" "ecompanyid" "email" "emplid" "first_name" "groupid" "height"
   "last_name" "managerid" "married")
diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index 26e760e..a4b8bb1 100644
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -290,7 +290,7 @@
 (deftest :fdml/select/15
     (multiple-value-bind (rows field-names)
 	(clsql:select [addressid] [street-number] [street-name] [city_field] [zip] 
-	 :from [address]
+	 :from [addr]
 	 :where [= 1 [addressid]])
       (values
        rows
@@ -354,14 +354,14 @@
 (deftest :fdml/loop/2
     (loop for (addressid)
       being each tuple in
-      [select [addressid] :from [address] :order-by [addressid]]
+      [select [addressid] :from [addr] :order-by [addressid]]
      collect addressid)
   (1 2))
 
 (deftest :fdml/loop/3
     (loop for addressid
       being each tuple in
-      [select [addressid] :from [address] :order-by [addressid]]
+      [select [addressid] :from [addr] :order-by [addressid]]
       collect addressid)
   (1 2))
 
diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index a1f700e..7301691 100644
--- 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 ()