Skip to content

Instantly share code, notes, and snippets.

@theotherzach

theotherzach/test-runner.ss

Created March 5, 2014 22:50
Show Gist options
  • Save theotherzach/9378375 to your computer and use it in GitHub Desktop.
Save theotherzach/9378375 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
test-runner.ss
(define tests
'((eq? 5 (+ 2 3))
(eq? 5 (+ 3 3))))
(define (test-iter test-list results)
(cond
((null? test-list) results)
(else
(test-iter
(cdr test-list)
(cons
(cons (eval (car test-list))
(cons (car test-list) '()))
results)))))
(define (test-runner)
(test-iter tests '()))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment