# HG changeset patch
# User David Scott <dave.scott@xxxxxxxxxxxxx>
# Date 1270119289 -3600
# Node ID 73d69c58c2228a4968563839a9021c3a255b8a9e
# Parent  65cb131a24a5d7a4c5f5428291a68151ef1d10dc
CA-39519: add extra debugging to quicktest

Signed-off-by: David Scott <dave.scott@xxxxxxxxxxxxx>

diff -r 65cb131a24a5 -r 73d69c58c222 ocaml/xapi/quicktest_storage.ml
--- a/ocaml/xapi/quicktest_storage.ml	Thu Apr 01 11:53:47 2010 +0100
+++ b/ocaml/xapi/quicktest_storage.ml	Thu Apr 01 11:54:49 2010 +0100
@@ -546,11 +546,15 @@
   | [ _, plugin ] ->
       let caps = plugin.API.sM_capabilities in
       debug test (Printf.sprintf "Capabilities reported: [ %s ]" (String.concat " " caps));
+	  let oc = Client.SR.get_other_config !rpc session_id sr in
+	  debug test (Printf.sprintf "SR.other_config = [ %s ]" (String.concat "; " (List.map (fun (k, v) -> k ^ ":" ^ v) oc)));
+	  let avoid_vdi_create = avoid_vdi_create session_id sr in
+	  debug test (Printf.sprintf "avoid_vdi_create = %b" avoid_vdi_create);
       (* Mirror the special handling for the XenServer Tools SR; the
          create and delete capabilities are forbidden in that special case.
          See Xapi_sr.valid_operations. *)
       let caps =
-        if avoid_vdi_create session_id sr then
+        if avoid_vdi_create then
           List.filter
             (fun cap -> not (List.mem cap [ vdi_create; vdi_delete ])) caps
         else