test: detail

This commit is contained in:
Simon Cruanes 2022-01-31 11:08:46 -05:00
parent 10c8006597
commit 8b78057058
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4

View file

@ -16,13 +16,13 @@ let props =
] ]
let () = let () =
(*Sidekick_util.Log.set_debug 50;*)
Sidekick_util.Log.set_debug 10;
match Array.to_list Sys.argv with match Array.to_list Sys.argv with
| a0::"alcotest"::tl -> | a0::"alcotest"::tl ->
Sidekick_util.Log.set_debug 50;
let argv= Array.of_list (a0::tl) in let argv= Array.of_list (a0::tl) in
Alcotest.run ~argv ~and_exit:true "arith tests" tests; Alcotest.run ~argv ~and_exit:true "arith tests" tests;
| a0::"qcheck"::tl -> | a0::"qcheck"::tl ->
Sidekick_util.Log.set_debug 50;
let argv= Array.of_list (a0::tl) in let argv= Array.of_list (a0::tl) in
CCFormat.set_color_default true; CCFormat.set_color_default true;
QCheck_runner.run_tests_main ~argv props QCheck_runner.run_tests_main ~argv props