feat: cleanup if domain not created successfully

kvm-install-vm

@@ -559,7 +559,7 @@ _EOF_
     CLOUD_INIT_OPTION="$(param --cloud-init user-data=${USER_DATA},meta-data=${META_DATA},disable=on)"
 
     # Call virt-install to import the cloud image and create a new VM
-    run "Installing the domain" \
+    if ! run "Installing the domain" \
         virt-install --import \
         --name=${VMNAME} \
         --memory=${MEMORY} \
@@ -573,8 +573,13 @@ _EOF_
         --noautoconsole \
         ${GRAPHICS_OPTION} \
         ${BOOTFLAG} \
-        ${VIRT_INSTALL_EXTRA} ||
+        ${VIRT_INSTALL_EXTRA}; then
+        # Cleanup on failure
+        red "VM creation failed. Cleaning up..."
+        popd
+        delete_vm
         die "Could not create domain with virt-install."
+    fi
 
     virsh dominfo ${VMNAME} &>> ${VMNAME}.log