r9235: fix test

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

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index 7e875b26d8f182adcee256ca699364e15b79aa48..39d7eea3f5e40fdb9d80c8eed5801805146e087b 100644 (file)
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -289,8 +289,8 @@
 
 (deftest :oodml/iteration/3
     (loop for (e) being the records in 
-          (select 'employee :where [married] :order-by [emplid])
-     collect (slot-value e 'last-name))
+          [select 'employee :where [< [emplid] 4] :order-by [emplid]]
+       collect (slot-value e 'last-name))
   ("Lenin" "Stalin" "Trotsky"))
 
 ))