higepon https://blog.hatena.ne.jp/higepon/ higepon blog https://higepon.hatenablog.com/ Scheme マクロがある程度動いているので id:tomapd:20060515:1147711444 を参考にちょっとしくみを作った。 assert-true/assert-false をラップした assert-check-true/assert-checke-false。 (assert-check-true "eqv? - should be #t" (eqv? #t #t) (eqv? #f #f) (eqv? 3 3) (eqv? (quote a) (quote a)) (eqv? (quote ()) (quote ())) (eqv? test-string1 test-string2)… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhigepon.hatenablog.com%2Fentry%2F20070110%2F1168443649" title=" unit test - その2 - higepon blog" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2007-01-10 00:40:49 rich https://higepon.hatenablog.com/entry/20070110/1168443649 1.0 100%