vmware-win/win_xpsp3_i386_no_tools.ml

   1 open V2v_test_harness
   2
   3 let test = "win_xpsp3_i386_no_tools"
   4 let input_disk = test ^ ".ova"
   5
   6 let test_plan = {
   7   default_plan with
   8     (*
   9       This would work, but unfortunately Windows dialogs don't open
  10       in exactly the same place on the screen, defeating our simple
  11       screen-matching algorithm:
  12
  13       boot_plan = Boot_to_screenshot (test ^ ".ppm");
  14     *)
  15     boot_plan = No_boot;
  16 }
  17
  18 let () = run ~test ~input_disk ~test_plan ()