open V2v_test_harness let test = "rhel_45_x86_64_pv" let test_plan = { default_plan with guest_clock = new_year's_day 2014; boot_plan = Boot_to_screenshot (test ^ "-login.ppm"); boot_known_good_screenshots = [ test ^ "-relabelling.ppm" ] } let () = run ~test ~test_plan ()