swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2025-11-11 02:07:51 +01:00
parent aa2ff7b2f0
commit 2f3113f55d
11742 changed files with 1223940 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

25
unikernel/duniverse/logs/test/test_count.ml Normal file
View file

@ -0,0 +1,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 ())