let choice =
    OUnitConf.make_enum
      Settings.name
      (fun () -> List.map snd !all)
      Settings.default_name
      Settings.conf_help