Skip to content

Commit 2cd3876

Browse files
authored
Merge pull request #548 from ocaml-multicore/disable-lin-bytes-52
Disable Lin Bytes test under OCaml 5.2 and earlier
2 parents 431970f + 06a109f commit 2cd3876

File tree

1 file changed

+12
-5
lines changed

1 file changed

+12
-5
lines changed

src/bytes/lin_tests.ml

Lines changed: 12 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -45,9 +45,16 @@ end
4545

4646
module BT_domain = Lin_domain.Make(BConf)
4747
module BT_thread = Lin_thread.Make(BConf)
48+
49+
let thread_tail =
50+
if Sys.(ocaml_release.major,ocaml_release.minor) < (5,3)
51+
then
52+
(Printf.printf "Lin.thread Bytes tests disabled on OCaml 5.2 and earlier\n%!"; [])
53+
else
54+
[ BT_thread.neg_lin_test ~count:5000 ~name:"Lin Bytes test with Thread"; ]
4855
;;
49-
QCheck_base_runner.run_tests_main [
50-
BT_domain.neg_lin_test ~count:5000 ~name:"Lin Bytes test with Domain";
51-
BT_thread.neg_lin_test ~count:5000 ~name:"Lin Bytes test with Thread";
52-
BT_domain.stress_test ~count:1000 ~name:"Lin Bytes stress test with Domain";
53-
]
56+
QCheck_base_runner.run_tests_main (
57+
BT_domain.neg_lin_test ~count:5000 ~name:"Lin Bytes test with Domain"::
58+
BT_domain.stress_test ~count:1000 ~name:"Lin Bytes stress test with Domain"::
59+
thread_tail
60+
)

0 commit comments

Comments
 (0)