Avoid generating huge files in tests/unboxed-primitive-args

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@16408 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 8 insertions, 1 deletions

diff --git a/testsuite/tests/unboxed-primitive-args/common.ml b/testsuite/tests/unboxed-primitive-args/common.ml
index f02951b6ed..e777c4a6bd 100644
--- a/testsuite/tests/unboxed-primitive-args/common.ml
+++ b/testsuite/tests/unboxed-primitive-args/common.ml
@@ -190,6 +190,8 @@ let print_hex ~sizes ~arity buffer =
     done;
   done
 
+let printed_mismatches = ref 0
+
 let print_mismatch name proto ~ocaml_buffer ~c_buffer =
   let printf = Printf.printf in
   printf "Mismatch for %s\n" name;
@@ -209,7 +211,12 @@ let print_mismatch name proto ~ocaml_buffer ~c_buffer =
   let sizes = sizes proto |> Array.of_list in
   let arity = arity proto in
   printf "ocaml side : "; print_hex ~sizes ~arity ocaml_buffer; printf "\n";
-  printf "c side     : "; print_hex ~sizes ~arity     c_buffer; printf "\n"
+  printf "c side     : "; print_hex ~sizes ~arity     c_buffer; printf "\n";
+  incr printed_mismatches;
+  if !printed_mismatches >= 1000 then begin
+    printf "Output truncated at 1000 failures.";
+    exit 0
+  end
 
 external cleanup_normal
   :  int -> int -> int -> int -> int -> int -> int -> int