let check test_ctxt t =
let t' = create () in
List.iter
(fun f -> non_fatal test_ctxt (fun _ -> f ()))
[
(fun () ->
assert_equal
~msg:"Current working dir (check env)."
~printer:(fun s -> s)
t.pwd
t'.pwd);
(fun () ->
let convert t = SetEnv.of_list (Array.to_list t.env) in
SetEnv.assert_equal
~msg:"Environment (check env)."
(convert t)
(convert t'));
]