diff options
| author | Mistivia <i@mistivia.com> | 2025-06-22 17:23:32 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2025-06-22 17:23:49 +0800 |
| commit | 47c8353366c5cd7544d182a897bacaa303c08d8e (patch) | |
| tree | d5362488aae5baba2afc3884d5339a09f182eaf9 /tests/arithmetic.lisp | |
| parent | 5c0eddbed7f838daac17e0b9d9c2a23f17da4660 (diff) | |
math functions
Diffstat (limited to 'tests/arithmetic.lisp')
| -rw-r--r-- | tests/arithmetic.lisp | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/arithmetic.lisp b/tests/arithmetic.lisp index e8634d7..1942a1d 100644 --- a/tests/arithmetic.lisp +++ b/tests/arithmetic.lisp @@ -5,6 +5,19 @@ (assert (= 2 (i/ 11 5))) (assert (= 1 (mod 11 5))) +(assert (zerop 0)) +(assert (not (zerop 1))) +(assert (not (zerop -1))) + +(assert (plusp 1)) +(assert (plusp 1.0)) +(assert (not (plusp 0))) +(assert (not (plusp -1))) + +(assert (minusp -1)) +(assert (not (minusp 0))) +(assert (not (minusp 1))) + (assert (< 1 2)) (assert (< 1.0 2)) (assert (not (> 1 2))) |