let test_plan = {
default_plan with
- (*
- This would work, but unfortunately Windows dialogs don't open
- in exactly the same place on the screen, defeating our simple
- screen-matching algorithm:
-
- boot_plan = Boot_to_screenshot (test ^ ".ppm");
- *)
- boot_plan = No_boot;
+ 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 ()