3 let test = "win_81pro_x86_64"
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")
17 post_conversion_test = Some check_virtio_blk;
18 boot_plan = Boot_to_screenshot (test ^ "-login.ppm");
21 let () = run ~test ~test_plan ()