author | Alan Dipert
<alan@dipert.org> 2020-04-03 19:09:52 UTC |
committer | Alan Dipert
<alan@dipert.org> 2020-04-03 19:09:52 UTC |
parent | a87c380fdb76a631c6c4137bc03e2b388533ea27 |
jacl-tests.lisp | +4 | -0 |
diff --git a/jacl-tests.lisp b/jacl-tests.lisp index 80b872b..59ffc72 100644 --- a/jacl-tests.lisp +++ b/jacl-tests.lisp @@ -43,6 +43,8 @@ (let ((sym (await (read1 @"\\\\alan ")))) (assert= (\. sym |name|) @"aLAN" "simple symbol with escape"))) +(\. @|QUnit| (|module| @"Numerics")) + (deftest "Numeric functions" (assert= (zerop 1) nil) (assert= (zerop 0) t) @@ -52,6 +54,8 @@ (assert= (> 1) t) (assert= (> 1 3) nil)) +(\. @|QUnit| (|module| @"Control operators")) + (deftest "Local TAGBODY" (let ((x 10) (y 0))