suzanne.soy/rackunit
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove SRFI-1 dependency

Browse Source
This commit is contained in:
Gustavo Massaccesi 2014-12-04 16:49:34 -03:00 committed by Matthew Flatt
parent 466a679cd5
commit cdcc3edf08
2 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rackunit-lib/info.rkt
View File

@ -2,8 +2,7 @@
(define collection 'multi) (define collection 'multi)
(define deps '("srfi-lite-lib" (define deps '("base"
"base"
"data-lib")) "data-lib"))
(define pkg-desc "RackUnit testing framework") (define pkg-desc "RackUnit testing framework")

10
rackunit-lib/rackunit/private/name-collector.rkt
View File

@ -30,8 +30,7 @@
(require "base.rkt" (require "base.rkt"
"monad.rkt" "monad.rkt"
"hash-monad.rkt" "hash-monad.rkt")
srfi/1)
(provide display-test-case-name (provide display-test-case-name
push-suite-name! push-suite-name!
@ -52,11 +51,10 @@
(cond (cond
((test-success? result) (return-hash (void))) ((test-success? result) (return-hash (void)))
(else (else
(fold-right (for-each
(lambda (name seed) (lambda (name)
(printf "~a > " name)) (printf "~a > " name))
(void) (reverse names))
names)
(display (test-result-test-case-name result)) (display (test-result-test-case-name result))
(newline) (newline)
(return-hash (void))))))) (return-hash (void)))))))