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

Add rackunit shortcut test declarations, fixes PR 14917

Browse Source 
Closes #23.
This commit is contained in:
Alexis King 2015-02-06 15:25:42 -08:00 committed by Sam Tobin-Hochstadt
parent ece97e5e5c
commit 400485a738
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
typed-racket-more/typed/rackunit/main.rkt
View File

@ -217,6 +217,33 @@
[current-test-name (Parameter (Option String))]
[current-test-case-around (Parameter ((Thunk Any) -> Any))])
; 3.3.1.1
(provide test-check test-pred test-equal? test-eq? test-eqv? test-=
test-true test-false test-not-false test-exn test-not-exn)
(define-syntax-rule (test-check name operator v1 v2)
(test-case name (check operator v1 v2)))
(define-syntax-rule (test-pred name pred v)
(test-case name (check-pred pred v)))
(define-syntax-rule (test-equal? name v1 v2)
(test-case name (check-equal? v1 v2)))
(define-syntax-rule (test-eq? name v1 v2)
(test-case name (check-eq? v1 v2)))
(define-syntax-rule (test-eqv? name v1 v2)
(test-case name (check-eqv? v1 v2)))
(define-syntax-rule (test-= name v1 v2 epsilon)
(test-case name (check-= v1 v2 epsilon)))
(define-syntax-rule (test-true name v)
(test-case name (check-true v)))
(define-syntax-rule (test-false name v)
(test-case name (check-false v)))
(define-syntax-rule (test-not-false name v)
(test-case name (check-not-false v)))
(define-syntax-rule (test-exn name pred thunk)
(test-case name (check-exn pred thunk)))
(define-syntax-rule (test-not-exn name thunk)
(test-case name (check-not-exn thunk)))
; 3.4
(require (only-in rackunit before after around delay-test))
(provide before after around delay-test)