学过ETest

(require 'etest)

(etest
("`ok' test"
(ok 1))
("`null' test"
(null nil))
("`eq' test int"
(eq 1 1))
("`eql' test float"
(eql 1.1 1.1))
("`equal' test"
(equal '(1 2) '(1 2)))
("`error' test"
(error (/ 1 0)))
("`noerror' test"
(noerror (/ 0 1)))
("`like' test"
(like "Hello" "^H\\(e\\)")))

还算好用吧。但类C的代码写的太多，一时还没转过弯来。