add /= and update the docs for comparison operators

Sigrid Solveig Haflínudóttir committed 1 year ago

Commit 1b155961 parent 049f0336 files · +28 −26Browse files

Showing the changes to test (2 of 6 files). Show all

Unified · Split

2 files

test/color.lsp +2 −2
test/unittest.lsp +3 −3

test/color.lsp+2−2

@@ -84,6 +84,6 @@ · 83 unmodified lines
84	(let ((result ()))	84	(let ((result ()))
85	(dotimes (x 25)	85	(dotimes (x 25)
86	(dotimes (y 25)	86	(dotimes (y 25)
87	(if (and (not (= x y)) (can-attack x y))	87	(when (and (/= x y) (can-attack x y))
88	(set! result (cons (cons x y) result)) ())))	88	(set! result (cons (cons x y) result)))))
89	result))	89	result))

test/unittest.lsp+3−3

@@ -120,9 +120,9 @@ · 119 unmodified lines
120	; NaNs	120	; NaNs
121	(assert (equal? +nan.0 +nan.0))	121	(assert (equal? +nan.0 +nan.0))
122	(assert (equal? -nan.0 -nan.0))	122	(assert (equal? -nan.0 -nan.0))
123	(assert (not (= +nan.0 +nan.0)))	123	(assert (/= +nan.0 +nan.0))
124	(assert (not (= +nan.0 -nan.0)))	124	(assert (/= +nan.0 -nan.0))
125	(assert (not (= -nan.0 -nan.0)))	125	(assert (/= -nan.0 -nan.0))
126	(assert (equal? (< +nan.0 3) (> 3 +nan.0)))	126	(assert (equal? (< +nan.0 3) (> 3 +nan.0)))
127	(assert (equal? (< +nan.0 (double 3)) (> (double 3) +nan.0)))	127	(assert (equal? (< +nan.0 (double 3)) (> (double 3) +nan.0)))
128	(assert (equal? (< +nan.0 3) (> (double 3) +nan.0)))	128	(assert (equal? (< +nan.0 3) (> (double 3) +nan.0)))