Skip to content

Commit

Permalink
Disable int test too
Browse files Browse the repository at this point in the history
  • Loading branch information
jmid committed Jan 23, 2024
1 parent 15bf856 commit 1cac4e9
Showing 1 changed file with 8 additions and 12 deletions.
20 changes: 8 additions & 12 deletions src/neg_tests/lin_internal_tests_thread_conclist.ml
Original file line number Diff line number Diff line change
Expand Up @@ -6,15 +6,11 @@ module CLT_int_thread = Lin_thread.Make_internal(CLConf (Int)) [@alert "-interna
module CLT_int64_thread = Lin_thread.Make_internal(CLConf (Int64)) [@alert "-internal"]

let _ =
let count = 1000 in
let tests = [
CLT_int_thread.lin_test ~count ~name:"Lin.Internal CList int test with Thread"; (* unboxed, hence no allocations to trigger context switch *)
CLT_int64_thread.lin_test ~count ~name:"Lin.Internal CList int64 test with Thread" (* not triggering context switch, unfortunately *)
] in
let tests =
if Sys.backend_type = Sys.Bytecode then (
Printf.printf "Lin.Internal CList int64 test with Thread disabled under bytecode\n\n%!";
[ List.hd tests ])
else tests
in
QCheck_base_runner.run_tests_main tests
if Sys.backend_type = Sys.Bytecode then
Printf.printf "Lin.Internal CList tests with Thread disabled under bytecode\n\n%!"
else
let count = 1000 in
QCheck_base_runner.run_tests_main [
CLT_int_thread.lin_test ~count ~name:"Lin.Internal CList int test with Thread"; (* unboxed, hence no allocations to trigger context switch *)
CLT_int64_thread.lin_test ~count ~name:"Lin.Internal CList int64 test with Thread" (* not triggering context switch, unfortunately *)
]

0 comments on commit 1cac4e9

Please sign in to comment.