This is an automated email from the git hooks/post-receive script.
glondu pushed a commit to branch experimental/master
in repository ocaml.
commit 616709aea7264c126932a972d13e3d03ee4c87e8
Author: Stephane Glondu <st...@glondu.net>
Date: Fri Nov 8 22:29:51 2013 +0100
Tune resource usage of some tests
---
.../0013-Tune-resource-usage-of-some-tests.patch | 234 ++++++++++++++++++++
debian/patches/series | 1 +
2 files changed, 235 insertions(+)
diff --git a/debian/patches/0013-Tune-resource-usage-of-some-tests.patch
b/debian/patches/0013-Tune-resource-usage-of-some-tests.patch
new file mode 100644
index 0000000..173e0bd
--- /dev/null
+++ b/debian/patches/0013-Tune-resource-usage-of-some-tests.patch
@@ -0,0 +1,234 @@
+From: Stephane Glondu <st...@glondu.net>
+Date: Fri, 8 Nov 2013 22:27:23 +0100
+Subject: 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").
+---
+ testsuite/tests/lib-threads/sieve.ml | 2 +-
+ testsuite/tests/lib-threads/sieve.reference | 80 -------------------------
+ testsuite/tests/lib-threads/testsieve.ml | 2 +-
+ testsuite/tests/lib-threads/testsieve.reference | 70 ----------------------
+ testsuite/tests/lib-threads/token1.ml | 2 +-
+ testsuite/tests/lib-threads/token2.ml | 2 +-
+ 6 files changed, 4 insertions(+), 154 deletions(-)
+
+diff --git a/testsuite/tests/lib-threads/sieve.ml
b/testsuite/tests/lib-threads/sieve.ml
+index ac3a9d2..86f0e5e 100644
+--- 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 3e7998d..6beaeaa 100644
+--- 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 6979f80..2f11272 100644
+--- 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 b6b8c06..6e97d2c 100644
+--- 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 d6e7a1b..3208150 100644
+--- 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 9ef0580..25a9004 100644
+--- 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
+--
diff --git a/debian/patches/series b/debian/patches/series
index 3c070d2..d67ae49 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -10,3 +10,4 @@
0010-Add-const-qualifiers-in-Tcl-Tk-bindings.patch
0011-Enable-mkstemp-in-yacc.patch
0012-Fix-ocamlopt-on-sparc.patch
+0013-Tune-resource-usage-of-some-tests.patch
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-ocaml-maint/packages/ocaml.git
_______________________________________________
Pkg-ocaml-maint-commits mailing list
Pkg-ocaml-maint-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-ocaml-maint-commits
