X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-fdml.lisp;h=33267a52f33d580866d7017f513fa09b7d8cc942;hp=8f9fd3f63980c88fcd0e7b35a80ddb8b70125636;hb=21ffe5f820036726c6353a16dfb478fb41aa700c;hpb=026988a3144e3ed7f48552b5567c34448fef51bc

diff --git a/tests/test-fdml.lisp b/tests/test-fdml.lisp
index 8f9fd3f..33267a5 100644
--- a/tests/test-fdml.lisp
+++ b/tests/test-fdml.lisp
@@ -382,6 +382,17 @@
  ("Boris" "Josef" "Konstantin" "Leon" "Leonid" "Mikhail" "Nikita" "Vladamir"
   "Yuri"))
 
+(deftest :fdml/select/26
+ (clsql:select ["table" first-name] ["table" last-name] 
+  :from '([employee "table"] [employee "join"])
+  :where [and [= ["table" first-name] 
+                 ["join" first-name]]
+              [not [= ["table" emplid] 
+                      ["join" emplid]]]]
+  :order-by '(["table" last-name])
+  :result-types nil :field-names nil)
+ (("Vladamir" "Lenin") ("Vladamir" "Putin")))
+  
 ;(deftest :fdml/select/11
 ;    (clsql:select [emplid] :from [employee]
 ;                :where [= [emplid] [any [select [companyid] :from [company]]]]