let setup () = ()
let teardown () = ()
let with_setup f = f ()