diff options
| author | Mistivia <i@mistivia.com> | 2025-06-21 20:20:12 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2025-06-21 20:23:24 +0800 |
| commit | 1cf7adef90777698d1f17363a5f82c997d5f1c34 (patch) | |
| tree | ae10b7efd3dc3d20a4f798849b5edaf1a31cc47f /tests/arithmetic.lisp | |
| parent | 249700617406474c5b60df2aa66a2a9951603e3c (diff) | |
fix tco bug
Diffstat (limited to 'tests/arithmetic.lisp')
| -rw-r--r-- | tests/arithmetic.lisp | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/arithmetic.lisp b/tests/arithmetic.lisp index 2764b10..05459f6 100644 --- a/tests/arithmetic.lisp +++ b/tests/arithmetic.lisp @@ -5,6 +5,16 @@ (assert (= 2 (i/ 11 5))) (assert (= 1 (mod 11 5))) +(assert (< 1 2)) +(assert (< 1.0 2)) +(assert (not (> 1 2))) +(assert (= 1.0 1.0)) +(assert (= 1 1.0)) +(assert (not (= 1 2))) +(assert (>= 2 1)) +(assert (>= 1 1)) +(assert (not (>= 0 1))) + (assert-error (+ 1 "a")) (assert-error (- 1 "a")) (assert-error (* 1 "a")) |