blob: 8c0916d6517bdf67fc26271c4887a66a4dae8b50 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
;; a testing framework for scheme
;; inspired by clojure.test and srfi-64
(define-module (Alpha Test)
#:use-module ((Alpha Core)
#:select (prn))
#:export (testing))
;; TODO: learn srfi-64
;; TODO: port over `deftest' et al from clojure
;; TODO: someday a quickcheck-like would be best
;; simple analog to clojure's `testing'
(define-syntax testing
((_ description ...)
((begin (prn description) ...))))
|
