let env_parse conf =
let parse name =
let env_name = "OUNIT_" ^ (String.uppercase name) in
try
let value = Sys.getenv env_name in
(* Check and translate double quoted variable. *)
let value =
try
Scanf.sscanf value "%S" (fun s -> s)
with Scanf.Scan_failure _ ->
value
in
let origin =
Printf.sprintf "Environment variable %s=%S." env_name value
in
set ~origin conf name value
with Not_found ->
()
in
Hashtbl.iter (fun name _ -> parse name) metaconf