module Sync:sig
..end
typetest_fun =
unit -> unit
val bracket : (unit -> 'a) -> ('a -> unit) -> ('a -> unit) -> test_fun
bracket setup test teardown
generates a test_fun
which will use setup
to create state needed for the test, then pass
that state to test
, and finally will pass that state to teardown
.