2023-05-12 20:04:04 +02:00
|
|
|
open Pusk.Utils
|
|
|
|
open Pusk.Selenium_init
|
2023-05-12 19:36:27 +02:00
|
|
|
|
2023-05-12 20:30:02 +02:00
|
|
|
let main = ()
|
|
|
|
|
2023-05-12 19:36:27 +02:00
|
|
|
let () =
|
2023-05-12 20:30:02 +02:00
|
|
|
let selenium = prepare "4.9.0" (Gecko "0.33.0") in
|
|
|
|
let selenium_pid = run selenium in
|
2023-05-12 19:36:27 +02:00
|
|
|
print_endline (fmt "Java running in %d" selenium_pid);
|
2023-05-12 20:30:02 +02:00
|
|
|
main;
|
|
|
|
let closed_pid = close selenium_pid in
|
|
|
|
print_endline (fmt "Program %d closed!" closed_pid)
|
2023-05-12 19:36:27 +02:00
|
|
|
;;
|