Tune resource usage of some tests

The original tests trigger some limits and fail on kfreebsd-i386 with
uncaught exception Sys_error("Thread.create: Resource temporarily
unavailable").

Gbp-Pq: Name 0013-Tune-resource-usage-of-some-tests.patch

diff --git a/testsuite/tests/lib-threads/sieve.ml b/testsuite/tests/lib-threads/sieve.ml
index ac3a9d2f978bf6963d874b2dc1e5a8c6c3963d2b..86f0e5e27212aa014423f44a71ce4dc2498f60f7 100644 (file)
--- a/testsuite/tests/lib-threads/sieve.ml
+++ b/testsuite/tests/lib-threads/sieve.ml
@@ -40,6 +40,6 @@ let go max =
   in Thread.create (integers 2) ch;
      print_primes ch max;;
 
-let _ = go 500
+let _ = go 50
 
 ;;

diff --git a/testsuite/tests/lib-threads/sieve.reference b/testsuite/tests/lib-threads/sieve.reference
index 3e7998db492eb7d40ac6310c799d8c23431923ea..6beaeaa3fdbbf1e2aba655e4b8868991975823d0 100644 (file)
--- a/testsuite/tests/lib-threads/sieve.reference
+++ b/testsuite/tests/lib-threads/sieve.reference
@@ -13,83 +13,3 @@
 41
 43
 47
-53
-59
-61
-67
-71
-73
-79
-83
-89
-97
-101
-103
-107
-109
-113
-127
-131
-137
-139
-149
-151
-157
-163
-167
-173
-179
-181
-191
-193
-197
-199
-211
-223
-227
-229
-233
-239
-241
-251
-257
-263
-269
-271
-277
-281
-283
-293
-307
-311
-313
-317
-331
-337
-347
-349
-353
-359
-367
-373
-379
-383
-389
-397
-401
-409
-419
-421
-431
-433
-439
-443
-449
-457
-461
-463
-467
-479
-487
-491
-499

diff --git a/testsuite/tests/lib-threads/testsieve.ml b/testsuite/tests/lib-threads/testsieve.ml
index 6979f803182a3b56d0cbab4830fed833817752a9..2f112720171a56dba0099a89488fc477e64ea504 100644 (file)
--- a/testsuite/tests/lib-threads/testsieve.ml
+++ b/testsuite/tests/lib-threads/testsieve.ml
@@ -41,7 +41,7 @@ let premiers = Event.new_channel ()
 let main _ =
   Thread.create sieve premiers;
   while true do
-    for i = 1 to 100 do
+    for i = 1 to 30 do
       let n = Event.sync (Event.receive premiers) in
       print_int n; print_newline()
     done;

diff --git a/testsuite/tests/lib-threads/testsieve.reference b/testsuite/tests/lib-threads/testsieve.reference
index b6b8c06e59fe2bdecd672cf736c3dfb88c072eaa..6e97d2c84474108d4701b6b3ade8b4216a7e2e76 100644 (file)
--- a/testsuite/tests/lib-threads/testsieve.reference
+++ b/testsuite/tests/lib-threads/testsieve.reference
@@ -28,73 +28,3 @@
 101
 103
 107
-109
-113
-127
-131
-137
-139
-149
-151
-157
-163
-167
-173
-179
-181
-191
-193
-197
-199
-211
-223
-227
-229
-233
-239
-241
-251
-257
-263
-269
-271
-277
-281
-283
-293
-307
-311
-313
-317
-331
-337
-347
-349
-353
-359
-367
-373
-379
-383
-389
-397
-401
-409
-419
-421
-431
-433
-439
-443
-449
-457
-461
-463
-467
-479
-487
-491
-499
-503
-509
-521

diff --git a/testsuite/tests/lib-threads/token1.ml b/testsuite/tests/lib-threads/token1.ml
index d6e7a1b7ab83c41789eaeac035acf41584fb7810..32081508a6124a7996499e7b9f7638d1b2443831 100644 (file)
--- a/testsuite/tests/lib-threads/token1.ml
+++ b/testsuite/tests/lib-threads/token1.ml
@@ -37,7 +37,7 @@ let process (n, conds, nprocs) =
   done
 
 let main() =
-  let nprocs = try int_of_string Sys.argv.(1) with _ -> 100 in
+  let nprocs = try int_of_string Sys.argv.(1) with _ -> 30 in
   let iter = try int_of_string Sys.argv.(2) with _ -> 1000 in
   let conds = Array.create nprocs (Condition.create()) in
   for i = 1 to nprocs - 1 do conds.(i) <- Condition.create() done;

diff --git a/testsuite/tests/lib-threads/token2.ml b/testsuite/tests/lib-threads/token2.ml
index 9ef05806efec2556975fa615dc3fe6225db024b1..25a9004ce4c68320af027a1f5035ed9d0b31c647 100644 (file)
--- a/testsuite/tests/lib-threads/token2.ml
+++ b/testsuite/tests/lib-threads/token2.ml
@@ -33,7 +33,7 @@ let process (n, ins, outs, nprocs) =
   done
 
 let main() =
-  let nprocs = try int_of_string Sys.argv.(1) with _ -> 100 in
+  let nprocs = try int_of_string Sys.argv.(1) with _ -> 30 in
   let iter = try int_of_string Sys.argv.(2) with _ -> 1000 in
   let ins = Array.create nprocs Unix.stdin in
   let outs = Array.create nprocs Unix.stdout in