search for: boot_xml

On Tuesday 10 March 2015 18:31:41 Richard W.M. Jones wrote: > + (* Boot the guest. *) > + let conn = C.connect () in > + let dom = D.create_xml conn boot_xml [D.START_AUTODESTROY] in When using ocaml-libvirt 0.6.1.2 (as shipped in f21), this results in: File "v2v_test_harness.ml", line 174, characters 14-26: Error: Unbound value D.create_xml Indeed, the ocaml-libvirt in that version has no Domain.create_xml, nor Domain flags like START_...

On Wed, Mar 11, 2015 at 11:02:44AM +0100, Pino Toscano wrote: > On Tuesday 10 March 2015 18:31:41 Richard W.M. Jones wrote: > > + (* Boot the guest. *) > > + let conn = C.connect () in > > + let dom = D.create_xml conn boot_xml [D.START_AUTODESTROY] in > > When using ocaml-libvirt 0.6.1.2 (as shipped in f21), this results in: > > File "v2v_test_harness.ml", line 174, characters 14-26: > Error: Unbound value D.create_xml > > Indeed, the ocaml-libvirt in that version has no Domain.creat...

As I'm now working through the enormous virt-v2v/virt-p2v bug list, we need a high quality set of tests to ensure that we don't accidentally regress some old OS/hypervisor combination while making changes. The test cases are going to be huge, so we cannot possibly distribute them in libguestfs. Furthermore many of them have licensing problems which means we cannot redistribute them at

...ed)\n" msg + ) mps; + + g, root + in + + let nodes_of_xpathobj doc xpathobj = + let nodes = ref [] in + for i = 0 to Xml.xpathobj_nr_nodes xpathobj - 1 do + nodes := Xml.xpathobj_node doc xpathobj i :: !nodes + done; + List.rev !nodes + in + + let test_boot boot_disk boot_xml_doc = + (* Modify boot XML (in memory). *) + let xpathctx = Xml.xpath_new_context boot_xml_doc in + + (* Change <name> to something unique. *) + let domname = "tmpv2v-" ^ test in + let xpath = Xml.xpath_eval_expression xpathctx "/domain/name" in + let nod...