r9235: fix test

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

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