X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fbasic.lisp;fp=tests%2Fbasic.lisp;h=2142e6fc3ef2def1e2b2c819249b4712be2fd887;hb=01888d11a058ecc8c1dcde23291f9cfbb3a307c0;hp=721b098b41e72a839f691ce011f4d5331e6b0411;hpb=c01a3503e58ba9d4e7fadb42f3f0f69c38496e10;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)