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