(*---------------------------------------------------------------------------
   Copyright (c) 2025 Thomas Gazagnaire. All rights reserved.
   SPDX-License-Identifier: MIT
  ---------------------------------------------------------------------------*)

(** Test CLI for vlog cram tests. *)

open Cmdliner

(* Create a test log source *)
let src = Logs.Src.create "test" ~doc:"Test source"

module Log = (val Logs.src_log src : Logs.LOG)

(* Create a tracing source *)
let tracing_src = Logs.Src.create "test.tracing" ~doc:"Test tracing source"

module Trace = (val Logs.src_log tracing_src : Logs.LOG)

let run _config =
  Log.err (fun m -> m "error message");
  Log.warn (fun m -> m "warning message");
  Log.info (fun m -> m "info message");
  Log.debug (fun m -> m "debug message");
  Trace.debug (fun m -> m "trace message")

let suite = ("cli", [ Alcotest.test_case "noop" `Quick ignore ])

let cmd =
  let doc = "Test CLI for vlog" in
  let info = Cmd.info "test-cli" ~doc in
  Cmd.v info Term.(const run $ Vlog.setup "test")

let () = exit (Cmd.eval cmd)