1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
(*---------------------------------------------------------------------------
Copyright (c) 2025 The logs programmers. All rights reserved.
SPDX-License-Identifier: ISC
---------------------------------------------------------------------------*)
open B0_testing
let test_count =
Test.test "Logs.{err,warn}_count" @@ fun () ->
let logit () =
Logs.warn (fun m -> m "Hey");
Logs.err (fun m -> m "Ho");
Logs.warn (fun m -> m "Let's go");
in
logit ();
Test.int (Logs.err_count ()) 1 ~__POS__;
Test.int (Logs.warn_count ()) 2 ~__POS__;
Logs.set_level None;
logit ();
Test.int (Logs.err_count ()) 2 ~__POS__;
Test.int (Logs.warn_count ()) 4 ~__POS__;
()
let main () = Test.main @@ fun () -> Test.autorun ()
let () = if !Sys.interactive then () else exit (main ())
|
