CLでSRFI-64 — #:g1

Posted 2012-03-13 16:08:00 GMT

CLでSRFI、今回は、SRFI-64の「A Scheme API for test suites」です。
ユニットテストはSRFI-78でも提供されていますが、SRFI-78はSRFI-64に比べて軽量とのことで、棲み分けがあるような、ないような。

動作

(progn
  (test-runner-reset (test-runner-current))
  (test-begin "foo")
  (test-equal 1 1)
  (test-equal 1 1)
  (test-error T (eval '(car 8)))
  (test-assert t)
  (test-end))
;>>  %%%% Starting test foo
;>>  # of expected passes      5
;>>
;=>  NIL

移植について

期待したエラーかどうかをテストするtest-errorですが、srfi-34/35あたりと組み合わさると、どういう感じになるのか良く分からなかったので使いながら修正していこうかなと思っています。
…というか仕上げる根気がなかったので放置という感じです。 ■

comments powered by Disqus