diff options
| author | Mistivia <i@mistivia.com> | 2025-06-24 15:44:12 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2025-06-24 15:50:55 +0800 |
| commit | 65cd835954825568a432c2e62d8019269dcafd74 (patch) | |
| tree | 52724d76c7506e1acce6c20903ff18fbeda02c8f /tests/arithmetic.lisp | |
| parent | 60b8cd0df3ed844ea5c77286ac27afff5b3c9b37 (diff) | |
add list function
Diffstat (limited to 'tests/arithmetic.lisp')
| -rw-r--r-- | tests/arithmetic.lisp | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/tests/arithmetic.lisp b/tests/arithmetic.lisp index 1942a1d..38b1185 100644 --- a/tests/arithmetic.lisp +++ b/tests/arithmetic.lisp @@ -5,18 +5,18 @@ (assert (= 2 (i/ 11 5))) (assert (= 1 (mod 11 5))) -(assert (zerop 0)) -(assert (not (zerop 1))) -(assert (not (zerop -1))) +(assert (zero? 0)) +(assert (not (zero? 1))) +(assert (not (zero? -1))) -(assert (plusp 1)) -(assert (plusp 1.0)) -(assert (not (plusp 0))) -(assert (not (plusp -1))) +(assert (plus? 1)) +(assert (plus? 1.0)) +(assert (not (plus? 0))) +(assert (not (plus? -1))) -(assert (minusp -1)) -(assert (not (minusp 0))) -(assert (not (minusp 1))) +(assert (minus? -1)) +(assert (not (minus? 0))) +(assert (not (minus? 1))) (assert (< 1 2)) (assert (< 1.0 2)) |