Fix rackunit test/check-exn signature

This commit is contained in:
Tobias Hammer 2013-08-29 11:12:34 +02:00 committed by Matthew Flatt
parent 1829a03bb6
commit 06eef213d8
2 changed files with 2 additions and 2 deletions

View File

@ -104,7 +104,7 @@ For example, the following checks all fail:
]
}
@defproc[(check-exn (exn-predicate (or/c (-> any boolean?) regexp?))
@defproc[(check-exn (exn-predicate (or/c (-> any any/c) regexp?))
(thunk (-> any)) (message string? ""))
void?]{

View File

@ -69,7 +69,7 @@ so the test can be named.
[(test-true [name string?] [v any/c]) void?]
[(test-false [name string?] [v any/c]) void?]
[(test-not-false [name string?] [v any/c]) void?]
[(test-exn [name string?] [pred (-> exn? any/c)] [thunk (-> any)]) void?]
[(test-exn [name string?] [pred (or/c (-> any any/c) regexp?)] [thunk (-> any)]) void?]
[(test-not-exn [name string?] [thunk (-> any)]) void?])]{
Creates a test case with the given @racket[name] that performs the