CA-236351: Add new API error "VM_HAS_NO_SUSPEND_VDI".

New API error need to raised if VM tried to be resumed
without having suspend VDI.

Signed-off-by: Sharad Yadav <[email protected]>

Author: sharady

ocaml/idl/datamodel.ml

@@ -985,6 +985,8 @@ let _ =
     ~doc:"Host cannot attach network (in the case of NIC bonding, this may be because attaching the network on this host would require other networks [that are currently active] to be taken down)." ();
   error Api_errors.vm_requires_vdi [ "vm"; "vdi" ]
     ~doc:"VM cannot be started because it requires a VDI which cannot be attached" ();
+  error Api_errors.vm_has_no_suspend_vdi [ "vm" ]
+    ~doc:"VM cannot be resumed because it has no suspend VDI" ();
   error Api_errors.vm_migrate_failed [ "vm"; "source"; "destination"; "msg" ]
     ~doc:"An error occurred during the migration process." ();
   error Api_errors.vm_has_too_many_snapshots [ "vm" ]

ocaml/xapi-consts/api_errors.ml

@@ -175,6 +175,7 @@ let vm_host_incompatible_version = "VM_HOST_INCOMPATIBLE_VERSION"
 let vm_host_incompatible_virtual_hardware_platform_version = "VM_HOST_INCOMPATIBLE_VIRTUAL_HARDWARE_PLATFORM_VERSION"
 let vm_has_pci_attached = "VM_HAS_PCI_ATTACHED"
 let vm_has_vgpu = "VM_HAS_VGPU"
+let vm_has_no_suspend_vdi = "VM_HAS_NO_SUSPEND_VDI"
 let host_cannot_attach_network = "HOST_CANNOT_ATTACH_NETWORK"
 let vm_no_suspend_sr = "VM_NO_SUSPEND_SR"
 let vm_no_crashdump_sr = "VM_NO_CRASHDUMP_SR"