Fix test, for completeness
This commit is contained in:
parent
41cbf8b58e
commit
6809a95041
@ -22,6 +22,6 @@
|
|||||||
(check-equal? (sum `(1 2)) 3)
|
(check-equal? (sum `(1 2)) 3)
|
||||||
(check-equal? (sum `(1 2 "buckle my shoe")) 3)
|
(check-equal? (sum `(1 2 "buckle my shoe")) 3)
|
||||||
(check-equal? (sum `(-1 -2)) -3) ;test for negative numbers
|
(check-equal? (sum `(-1 -2)) -3) ;test for negative numbers
|
||||||
(check-equal? (sum `(-1 `(1 2) -2))) ;test for recursive lists
|
(check-equal? (sum `(-1 `(1 2) -2)) 3) ;test for recursive lists
|
||||||
(check-equal? (sum `(0.1 0.2)) 0.3) ;test for floating point numbers
|
(check-equal? (sum `(0.1 0.2)) 0.3) ;test for floating point numbers
|
||||||
)
|
)
|
Loading…
Reference in New Issue
Block a user