quicktest: Make default virtual size less magical

4194304 = 4MIB

Signed-off-by: Andrii Sultanov <andriy.sultanov@vates.tech>

Author: last-genius

ocaml/quicktest/qt.ml

@@ -192,7 +192,8 @@ module VDI = struct
 
   let test_vdi_name_description = "VDI for storage quicktest"
 
-  let make rpc session_id ?(virtual_size = 4194304L) ?backing_format sR =
+  let make rpc session_id ?(virtual_size = Int64.(mul (mul 4L 1024L) 1024L))
+      ?backing_format sR =
     let sm_config =
       match backing_format with Some x -> [("image-format", x)] | None -> []
     in
@@ -207,7 +208,8 @@ module VDI = struct
         Client.Client.VDI.destroy ~rpc ~session_id ~self
     )
 
-  let with_new rpc session_id ?(virtual_size = 4194304L) ?backing_format sr f =
+  let with_new rpc session_id ?(virtual_size = Int64.(mul (mul 4L 1024L) 1024L))
+      ?backing_format sr f =
     let self = make rpc session_id ~virtual_size ?backing_format sr in
     with_destroyed rpc session_id self (fun () -> f self)
 

ocaml/quicktest/quicktest_vm_snapshot.ml

@@ -5,15 +5,17 @@ let with_setup rpc session_id sr vm_template f =
   print_endline (Printf.sprintf "Template has uuid: %s%!" uuid) ;
   let vdi =
     Client.Client.VDI.create ~rpc ~session_id ~name_label:"small"
-      ~name_description:__LOC__ ~sR:sr ~virtual_size:4194304L ~_type:`user
-      ~sharable:false ~read_only:false ~other_config:[] ~xenstore_data:[]
-      ~sm_config:[] ~tags:[]
+      ~name_description:__LOC__ ~sR:sr
+      ~virtual_size:Int64.(mul (mul 4L 1024L) 1024L)
+      ~_type:`user ~sharable:false ~read_only:false ~other_config:[]
+      ~xenstore_data:[] ~sm_config:[] ~tags:[]
   in
   let vdi2 =
     Client.Client.VDI.create ~rpc ~session_id ~name_label:"small2"
-      ~name_description:__LOC__ ~sR:sr ~virtual_size:4194304L ~_type:`user
-      ~sharable:false ~read_only:false ~other_config:[] ~xenstore_data:[]
-      ~sm_config:[] ~tags:[]
+      ~name_description:__LOC__ ~sR:sr
+      ~virtual_size:Int64.(mul (mul 4L 1024L) 1024L)
+      ~_type:`user ~sharable:false ~read_only:false ~other_config:[]
+      ~xenstore_data:[] ~sm_config:[] ~tags:[]
   in
   Qt.VM.with_new rpc session_id ~template:vm_template (fun vm ->
       print_endline (Printf.sprintf "Installed new VM") ;