From ec946a8ba894d5b61d7fa03cc11bc4c2240fc7e4 Mon Sep 17 00:00:00 2001 From: Alexis King Date: Fri, 9 Jan 2015 11:26:45 -0800 Subject: [PATCH] Note code adapted from rackunit and improve type declarations --- typed-racket-more/typed/rackunit/main.rkt | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/typed-racket-more/typed/rackunit/main.rkt b/typed-racket-more/typed/rackunit/main.rkt index 952c2375..20aaa71c 100644 --- a/typed-racket-more/typed/rackunit/main.rkt +++ b/typed-racket-more/typed/rackunit/main.rkt @@ -142,7 +142,8 @@ (define current-seed : (Parameter Seed) (make-parameter #f)) -(: test-suite-test-case-around (test-suite-handler-here -> ((Thunk Any) -> Any))) +; taken directly from rackunit/private/test-suite +(: test-suite-test-case-around (test-suite-handler-here -> ((Thunk Any) -> Void))) (define (test-suite-test-case-around fhere) (lambda (thunk) (let* ([name (current-test-name)] @@ -150,7 +151,8 @@ [seed (current-seed)]) (current-seed (fhere test name thunk seed))))) -(: test-suite-check-around (test-suite-handler-here -> ((Thunk Any) -> Any))) +; taken directly from rackunit/private/test-suite +(: test-suite-check-around (test-suite-handler-here -> ((Thunk Any) -> Void))) (define (test-suite-check-around fhere) (lambda (thunk) (let* ([name #f] @@ -158,6 +160,7 @@ [seed (current-seed)]) (current-seed (fhere test name thunk seed))))) +; adapted from rackunit/private/test-suite (define-syntax (test-suite stx) (syntax-parse stx [(_ name:expr