module Sync:sig..end
typetest_fun =unit -> unit
val bracket : (unit -> 'a) -> ('a -> unit) -> ('a -> unit) -> test_funbracket 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.