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	84	(let ((result ()))
85	85	(dotimes (x 25)
86	86	(dotimes (y 25)
87		− (if (and (not (= x y)) (can-attack x y))
88		− (set! result (cons (cons x y) result)) ())))
	87	+ (when (and (/= x y) (can-attack x y))
	88	+ (set! result (cons (cons x y) result)))))
89	89	result))

test/unittest.lsp+3−3

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