TDD

Gaucheでユニットテスト。

TDDを求めるエンジニアが多いので、gaucheでのユニットテスト例。 ;;テスト対象 (define (proc1 a b c) (if (and (<= a b)(<= a c)) (+ (proc2 b)(proc2 c)) (proc1 b c a))) (define (proc2 x) (* x x)) #| 以下ユニットテスト例。 |# ;;テストモジュールを…