let test_plan = {
default_plan with
guest_clock = new_year's_day 2014;
- (*boot_plan = Boot_to_screenshot (test ^ ".ppm")*)
- boot_plan = Boot_to_idle
+ boot_plan = Boot_to_screenshot (test ^ "-login.ppm")
}
let () = run ~test ~input_disk ~test_plan ()