blob: 638940fe831b4e5ca154141002d13f4e6bdb58c8 (
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 (Com Simatime Test)
#:use-module ((Com Simatime 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) ...))))
|
