X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-fdml.lisp;h=380710491473a926f1198e0455bb921c36d3afdd;hb=9f88a2a19d13afb9ab7f35ad1df522d00301b56d;hp=1134c913193a35001b362ae711ad12d6c791186c;hpb=79cdb16ebd29e11e9762ec81c32314433d85eaad;p=clsql.git

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index 1134c91..3807104 100644
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -289,14 +289,14 @@
 
 (deftest :fdml/select/15
     (multiple-value-bind (rows field-names)
-	(clsql:select [emplid] [street-number] [street-name] [city_field] [zip] 
+	(clsql:select [addressid] [street-number] [street-name] [city_field] [zip] 
 	 :from [address]
-	 :where [= 1 [emplid]])
+	 :where [= 1 [addressid]])
       (values
        rows
        (mapcar #'string-downcase field-names)))
   ((1 10 "Park Place" "Leningrad" 123))
-  ("emplid" "street_number" "street_name" "city_field" "zip"))
+  ("addressid" "street_number" "street_name" "city_field" "zip"))
 
 (deftest :fdml/select/16
     (clsql:select [emplid] :from [employee] :where [= 1 [emplid]]
@@ -352,17 +352,17 @@
    "Josef Stalin" "Leon Trotsky" "Boris Yeltsin"))
 
 (deftest :fdml/loop/2
-    (loop for (emplid)
+    (loop for (addressid)
       being each tuple in
-      [select [emplid] :from [address] :order-by [emplid]]
-     collect emplid)
+      [select [addressid] :from [address] :order-by [addressid]]
+     collect addressid)
   (1 2))
 
 (deftest :fdml/loop/3
-    (loop for emplid
+    (loop for addressid
       being each tuple in
-      [select [emplid] :from [address] :order-by [emplid]]
-      collect emplid)
+      [select [addressid] :from [address] :order-by [addressid]]
+      collect addressid)
   (1 2))
 
 ;; starts a transaction deletes a record and then rolls back the deletion