let of_name s =
    try
      List.assoc s (List.map snd !all)
    with Not_found ->
      OUnitUtils.failwithf "Unable to find %s '%s'." Settings.name s