[tests] added support for future multiple logging categories

src/logging.ml

@@ -55,12 +55,12 @@ let pp_header =
 
 let specification_enabled = ref false
 
-let setup_log level category =
+let setup_log level categories =
   Fmt_tty.setup_std_outputs ~style_renderer:`Ansi_tty ();
   Logs.set_level level;
   let () =
-    match category with
-    | Some Category.Specification -> specification_enabled := true
+    match categories with
+    | Some [ Category.Specification ] -> specification_enabled := true
     | _ -> ()
   in
   Logs.set_reporter (Logs_fmt.reporter ~pp_header ())

src/logging.mli

@@ -30,4 +30,4 @@ end
 
 val specification_enabled : bool ref
 val spec_tag : unit -> Logs.Tag.set
-val setup_log : Logs.level option -> Category.t option -> unit
+val setup_log : Logs.level option -> Category.t list option -> unit

src/main.ml

@@ -36,24 +36,24 @@ let () =
 
 (* -- Logs. *)
 
-let log_category =
+let log_categories =
   let all_categories = Logging.Category.list_available () in
   let doc =
     Fmt.str "Logging categories. Available are $(docv)s: %a."
       (Fmt.list ~sep:Fmt.comma Fmt.string)
       (List.map ~f:Logging.Category.to_string all_categories)
   in
-  let log_categories =
+  let enum_log_categories =
     Arg.enum
       (List.map ~f:(fun c -> (Logging.Category.to_string c, c)) all_categories)
   in
   Arg.(
     value
-    & opt (some log_categories) None
+    & opt (some (list enum_log_categories)) None
     & info [ "c"; "log-category" ] ~doc ~docv:"LOGTAG")
 
 let setup_logs =
-  Term.(const Logging.setup_log $ Logs_cli.level () $ log_category)
+  Term.(const Logging.setup_log $ Logs_cli.level () $ log_categories)
 
 let log_level_is_debug () =
   match Logs.level () with Some Debug -> true | _ -> false