我必须为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

08-26 19:54
查看更多