redex: adjust benchmark contracts and provides
This commit is contained in:
parent
ae23c070f1
commit
b10f178e98
|
@ -11,4 +11,5 @@
|
|||
run-gen-and-check/mods
|
||||
bmark-log-directory
|
||||
benchmark-logging-to
|
||||
bmark-log)
|
||||
bmark-log
|
||||
(struct-out run-results))
|
|
@ -14,17 +14,17 @@
|
|||
|
||||
(provide/contract
|
||||
[run-gen-and-check/mods
|
||||
(-> module-path?
|
||||
(->* (module-path?
|
||||
module-path?
|
||||
natural-number/c
|
||||
#:name string?
|
||||
natural-number/c)
|
||||
(#:name string?)
|
||||
run-results?)]
|
||||
[run-gen-and-check
|
||||
(-> (-> (-> any/c))
|
||||
(->* ((-> (-> any/c))
|
||||
(-> any/c boolean?)
|
||||
natural-number/c
|
||||
#:name string?
|
||||
#:type symbol?
|
||||
natural-number/c)
|
||||
(#:name string?
|
||||
#:type symbol?)
|
||||
run-results?)])
|
||||
|
||||
(define (run-gen-and-check/mods gen-mod-path check-mod-path seconds #:name [name "unknown"])
|
||||
|
|
Loading…
Reference in New Issue
Block a user