let open_close_test (module Test_db : TEST_DATABASE) uri_string () =   let open Test_db in   DB.load uri_string   >>= fun db ->   DB.close db