reduce Bytes Thread test count

Author: jmid

src/bytes/lin_tests_dsl.ml

@@ -9,6 +9,7 @@ module BConf = struct
   open Lin_api
   let int = nat_small
 (*let int = int_bound 10*)
+
   let api = [
     val_ "Bytes.length"      Bytes.length      (t @-> returning int);
     val_ "Bytes.get"         Bytes.get         (t @-> int @-> returning_or_exc char);
@@ -34,5 +35,5 @@ Util.set_ci_printing ()
 ;;
 QCheck_base_runner.run_tests_main [
   BT.neg_lin_test `Domain ~count:1000 ~name:"Lin_api Bytes test with Domain";
-  BT.lin_test     `Thread ~count:1000 ~name:"Lin_api Bytes test with Thread";
+  BT.lin_test     `Thread ~count:250  ~name:"Lin_api Bytes test with Thread";
 ]