Scheme Racket Rackunit

Question

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

Answer 1

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