[TOC] ## 测试原则 当需要对值进行比较时,使用`equa?`进行测试。 ## 实例 ``` (define (add x y) (+ x y)) (define (test-add func-res hope-res) (cond [(equal? hope-res func-res) true] [else (error 'test-add "run is error func result is " func-res " expected is " hope-res)])) (test-add (add 1 2) 3) ;#true (test-add (add 1 2) 4) ;test-add: run is error func result is 3 expected is 4 ``` equal? 可以对任何类型类型进行比较