windows-virtio/win_81pro_x86_64.ml

   1 open V2v_test_harness
   2
   3 let test = "win_81pro_x86_64"
   4
   5 (* Check virtio-blk driver was installed. *)
   6 let check_virtio_blk g root xml =
   7   let xpathctx = Xml.xpath_new_context xml in
   8   let xpath = Xml.xpath_eval_expression xpathctx "/domain/devices/disk[@device=\"disk\"]/target/@bus" in
   9   let nr_nodes = Xml.xpathobj_nr_nodes xpath in
  10   assert (nr_nodes = 1);
  11   let node = Xml.xpathobj_node xml xpath 0 in
  12   let node = Xml.node_as_string node in
  13   assert (node = "virtio")
  14
  15 let test_plan = {
  16   default_plan with
  17     post_conversion_test = Some check_virtio_blk;
  18     boot_plan = Boot_to_screenshot (test ^ "-login.ppm");
  19 }
  20
  21 let () = run ~test ~test_plan ()