Replace remaining uses of xs-tools.iso name_label

Signed-off-by: Si Beaumont <simon.beaumont@citrix.com>

Author: simonjbeaumont

ocaml/xapi/cancel_tests.ml

@@ -411,14 +411,19 @@ let _ =
 				| [ v ] ->
 					let net = Client.Network.get_by_name_label ~rpc ~session_id ~label:"Host internal management network" in
 					if List.length net = 0 then failwith "Failed to find the host internal management network";
-					let vdi = Client.VDI.get_by_name_label ~rpc ~session_id ~label:"xs-tools.iso" in
-					if List.length vdi = 0 then failwith "Failed to find the xs-tools.iso";
+					let vdi =
+						let tools_iso_filter = "field \"is_tools_iso\"=\"true\"" in
+						begin match Client.VDI.get_all_records_where !rpc session_id tools_iso_filter with
+						| (vdi, _)::_ -> vdi
+						| [] -> failwith "Failed to find the tools ISO";
+						end
+					in
 					let env = {
 						session_id = session_id;
 						vm = v;
 						id = Client.VM.get_uuid ~rpc ~session_id ~self:v;
 						net = List.hd net;
-						vdi = List.hd vdi;
+						vdi;
 					} in
 					run env
 				| _ ->

ocaml/xe-cli/rt/tests.ml

@@ -233,8 +233,8 @@ let cd_guest_verified (cli : Util.t_cli) vmid =
   log Info "Test: VM NAME='%s'" domainname;
   log Info "Test: Testing CD operations";
   ensure_vm_down cli vmid 0;
-  let cd1 = ("xs-tools.iso",get_vdi_uuid_from_name cli "xs-tools.iso","2","xenlegacy.exe") in
-  let cd2 = ("xs-tools.iso",get_vdi_uuid_from_name cli "xs-tools.iso","3","xenlegacy.exe") in
+  let cd1 = ("guest-tools.iso",get_vdi_uuid_from_name cli "guest-tools.iso","2","xenlegacy.exe") in
+  let cd2 = ("guest-tools.iso",get_vdi_uuid_from_name cli "guest-tools.iso","3","xenlegacy.exe") in
 
   let checkcdset cdset =
     let missingcds = List.filter (fun (name,uuid,device,file) -> uuid="") cdset in

scripts/scalability-tests/provision-vm

@@ -10,7 +10,7 @@
 if [ $# -le 1 ]; then 
    echo "Usage: ${0} vm_per_host host1 [host2 ... hostN]"
    echo "${0} provisions <vm_per_host> debiant-etch VMs on each host and installs them on a local VHD disk. Moreover, all the hosts join a common pool." 
-   echo "if PROVISION_VM_WITH_CD is set to 1, then attach xs-tools.iso CD-ROM to the initial Debian Etch VM before cloning it."
+   echo "if PROVISION_VM_WITH_CD is set to 1, then attach guest tools ISO CD-ROM to the initial Debian Etch VM before cloning it."
    exit 1
 fi 
 
@@ -68,9 +68,10 @@ install () {
     echo "[${HOST}] Set."
 
     if [ "${PROVISION_VM_WITH_CD}" == "1" ]; then
-	echo "[${HOST}] Attaching a CD-ROM."
-	${XE} vm-cd-add vm=${DEB} cd-name=xs-tools.iso device=3
-	echo "[${HOST}] Attached."
+        echo "[${HOST}] Attaching a CD-ROM."
+        TOOLS_ISO=`${XE} vdi-list is-tools-iso=ture params=name-label --minimal`
+        ${XE} vm-cd-add vm=${DEB} cd-name=${TOOLS_ISO} device=3
+        echo "[${HOST}] Attached."
     fi
 
 }