let new_tmp_dir () =     let db_file = Filename.temp_file  "trakeva_tmp_test" ".d" in     Sys.command (sprintf "rm -rf %s" db_file) |> ignore;     Sys.command (sprintf "mkdir -p %s" db_file) |> ignore;     db_file