我必须为Scheme中的每个功能创建测试用例。我收到一个错误:check-equal ?:错误的语法
我究竟做错了什么?
这是我所拥有的:
(require rackunit)
;Zip takes two lists and pairs each of the nth
;elements together
(define (zip . xss)
(apply map list xss)
)
(define (zip-test2)
(check-eq? (zip '(a b c) '(1 2 3)))
)
最佳答案
check-equal?
和check-eq?
都至少需要2个参数:要检查的表达式和期望值[1]。您似乎只提供要检查的表达式,没有期望值。大概您想要这样的东西:
(check-equal? (zip '(a b c) '(1 2 3))
'((a 1) (b 2) (c 3)))
文档中提供了更多信息:
[1] http://doc.racket-lang.org/rackunit/api.html