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'));
      ]