Common Lisp で Test::Simple を書いてみるテスト

Test::Simple の概要を lisp っぽく直してみた。

(require 'test:simple)

;; テストの数を宣言します。
(tests 1)

(let ((foo 32)
      (bar 32))
  ;; テストを行い、ok または not ok を出力します。
  (ok (equal foo bar) "foo is bar"))

foobar が無い感じあったので、適当に定義してみた。

参考