Don't use getenv_opt in configurator test

This commit is contained in:
Rudi Grinberg 2018-04-20 17:32:37 +07:00
parent 9b7a1707c5
commit 13eea737f9
1 changed files with 3 additions and 3 deletions

View File

@ -1,9 +1,9 @@
module Configurator = Configurator.V1
let () =
begin match Sys.getenv_opt "DUNE_CONFIGURATOR" with
| None -> failwith "DUNE_CONFIGURATOR is not passed"
| Some _ -> print_endline "DUNE_CONFIGURATOR is present"
begin match Sys.getenv "DUNE_CONFIGURATOR" with
| exception Not_found -> failwith "DUNE_CONFIGURATOR is not passed"
| _ -> print_endline "DUNE_CONFIGURATOR is present"
end;
Configurator.main ~name:"config" (fun t ->
match Configurator.ocaml_config_var t "version" with