open V2v_test_harness let test = "win_xpsp3_i386_no_tools" let input_disk = test ^ ".ova" let test_plan = { default_plan with boot_plan = Boot_to_screenshot (test ^ "-desktop.ppm"); boot_known_good_screenshots = [ test ^ "-booting.ppm" ]; } let () = run ~test ~input_disk ~test_plan ()