knazarov/valeri
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add more numeric test cases

Browse source
This commit is contained in:
Konstantin Nazarov 2024-08-27 23:00:37 +01:00
parent b23eb26ffe
commit 13f66aea14
Signed by: knazarov
GPG key ID: 4CFE0A42FA409C22
1 changed files with 30 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
test/numeric.vli
View file

@ -1,5 +1,34 @@
;; -*- mode: lisp; -*- ;; -*- mode: lisp; -*-
(assert (= 1 1)) (assert (= 1 1))
(assert (!= 1 2)) (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))