X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fbasic.lisp;h=2142e6fc3ef2def1e2b2c819249b4712be2fd887;hb=d0a199def3bf3f5fb569db92089e7acdb421df8a;hp=721b098b41e72a839f691ce011f4d5331e6b0411;hpb=310050ec8360dd9f69d205ff3ff541e0fc59c7e1;p=umlisp.git diff --git a/tests/basic.lisp b/tests/basic.lisp index 721b098..2142e6f 100644 --- a/tests/basic.lisp +++ b/tests/basic.lisp @@ -63,11 +63,11 @@ "SELECT SAB,DEF FROM MRDEF WHERE CUI='39' AND KSRL<=2 ORDER BY CUI asc") (deftest :qrystr/8 (umlisp::query-string mrdef (sab def) 2 cui 39 :lrl ksrl - :order (cui asc def desc)) + :order (cui asc def desc)) "SELECT SAB,DEF FROM MRDEF WHERE CUI='39' AND KSRL<=2 ORDER BY CUI asc,DEF desc") (deftest :qrystr/8e (umlisp::query-string-eval 'mrdef '(sab def) 2 'cui 39 :lrl 'ksrl - :order '(cui asc def desc)) + :order '(cui asc def desc)) "SELECT SAB,DEF FROM MRDEF WHERE CUI='39' AND KSRL<=2 ORDER BY CUI asc,DEF desc") (deftest :ui/1 (umlisp::parse-cui "C0002341") 2341)