From 13f66aea142c97be1113ff12eb42634a20b30d78 Mon Sep 17 00:00:00 2001 From: Konstantin Nazarov Date: Tue, 27 Aug 2024 23:00:37 +0100 Subject: [PATCH] Add more numeric test cases --- test/numeric.vli | 31 ++++++++++++++++++++++++++++++- 1 file changed, 30 insertions(+), 1 deletion(-) diff --git a/test/numeric.vli b/test/numeric.vli index 5344c99..b1af9fb 100644 --- a/test/numeric.vli +++ b/test/numeric.vli @@ -1,5 +1,34 @@ ;; -*- mode: lisp; -*- (assert (= 1 1)) - (assert (!= 1 2)) +(assert (= 1 1.0)) +(assert (= 1.0 1.0)) +(assert (!= 1.0 1.1)) + +(assert (= (+ 1 2) 3)) +(assert (= (+ 1 2.1) 3.1)) + +(assert (= (- 1 2) -1)) +(assert (= (- 1 2.1) -1.1)) + +(assert (= (- 1 -2) 3)) +(assert (= (- 1 -2.1) 3.1)) + +(assert (= (- 0 0) 0)) +(assert (= (- 0 -0) 0)) +(assert (= (+ 0 0) 0)) + +(assert (= (* 2 3) 6)) +(assert (= (* 2 2.1) 4.2)) + +(assert (= (* 2 0) 0)) +(assert (= (* 0 2.1) 0)) + +(assert (= (/ 4 2) 2)) +(assert (= (/ 1 2) 0.5)) + +(assert (= (/ 4 -2) -2)) +(assert (= (/ 1 -2) -0.5)) + +(assert (= (/ 5 2.5) 2))