let test_plan = {
default_plan with
- boot_plan = Boot_to_screenshot (test ^ "-desktop.ppm")
+ guest_clock = new_year's_day 2014;
+ boot_plan = Boot_to_screenshot (test ^ "-desktop.ppm");
+ boot_known_good_screenshots = [ test ^ "-booting.ppm" ];
}
let () = run ~test ~input_disk ~test_plan ()