r9261: more :base-table testing

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

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index 26e760e919937be497e3e54512b4725f478fc4a4..a4b8bb18ed2c016dc8b7c7762fa82d99359f0dfe 100644 (file)
--- 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))