add context flag verbose to suppress config printing during tests

Author: yasunariw

lib/action.ml

@@ -200,7 +200,7 @@ module Action (Github_api : Api.Github) (Slack_api : Api.Slack) = struct
     let fetch_config () =
       match%lwt Github_api.get_config ~ctx ~repo with
       | Ok config ->
-        Context.print_config ctx repo.url;
+        if ctx.verbose then Context.print_config ctx repo.url;
         State.set_repo_config ctx.state ~repo_url:repo.url ~config;
         Lwt.return @@ Ok ()
       | Error e -> action_error e

lib/context.ml

@@ -12,6 +12,7 @@ type t = {
   state_filepath : string option;
   mutable secrets : Config_t.secrets option;
   state : State_t.state;
+  verbose : bool;
 }
 
 let default : t =
@@ -21,12 +22,14 @@ let default : t =
     state_filepath = None;
     secrets = None;
     state = State.empty ();
+    verbose = true;
   }
 
-let make ?config_filename ?secrets_filepath ?state_filepath () =
+let make ?config_filename ?secrets_filepath ?state_filepath ?verbose () =
   let config_filename = Option.value config_filename ~default:default.config_filename in
   let secrets_filepath = Option.value secrets_filepath ~default:default.secrets_filepath in
-  { default with config_filename; secrets_filepath; state_filepath }
+  let verbose = Option.value verbose ~default:default.verbose in
+  { default with config_filename; secrets_filepath; state_filepath; verbose }
 
 let get_secrets_exn ctx =
   match ctx.secrets with
@@ -74,9 +77,11 @@ let refresh_state ctx =
 let print_config ctx repo_url =
   let cfg = State.find_repo_config_exn ctx.state repo_url in
   let secrets = get_secrets_exn ctx in
-  let token = gh_hook_token_of_secrets secrets repo_url in
-  log#info "using prefix routing:";
+  let hook_token = gh_hook_token_of_secrets secrets repo_url in
+  let token = gh_token_of_secrets secrets repo_url in
+  Stdio.print_endline "using prefix routing:";
   Rule.Prefix.print_prefix_routing cfg.prefix_rules.rules;
-  log#info "using label routing:";
+  Stdio.print_endline "using label routing:";
   Rule.Label.print_label_routing cfg.label_rules.rules;
-  log#info "signature checking %s" (if Option.is_some token then "enabled" else "disabled")
+  Stdio.printf "signature checking %s\n" (if Option.is_some hook_token then "enabled" else "disabled");
+  Stdio.printf "personal access token %s\n" (if Option.is_some token then "enabled" else "disabled")