test: create /tmp/xenvm.d at the beginning

Signed-off-by: David Scott <[email protected]>

Author: David Scott

test/test.ml

@@ -159,11 +159,11 @@ let xenvmd_suite = "Commands which require xenvmd" >::: [
 ]
 
 let _ =
+  mkdir_rec "/tmp/xenvm.d" 0o0755;
   run_test_tt_main no_xenvmd_suite |> ignore;
   with_temp_file (fun filename' ->
     with_loop_device filename' (fun loop ->
       xenvm [ "vgcreate"; vg; loop ] |> ignore_string;
-      mkdir_rec "/tmp/xenvm.d" 0o0755;
       xenvm [ "set-vg-info"; "--pvpath"; loop; "-S"; "/tmp/xenvmd"; vg; "--local-allocator-path"; "/tmp/xenvm-local-allocator"; "--uri"; "file://local/services/xenvmd/"^vg ] |> ignore_string;
       file_of_string "test.xenvmd.conf" ("( (listenPort ()) (listenPath (Some \"/tmp/xenvmd\")) (host_allocation_quantum 128) (host_low_water_mark 8) (vg "^vg^") (devices ("^loop^")))");
       xenvmd [ "--config"; "./test.xenvmd.conf"; "--daemon" ] |> ignore_string;