From c9f0dc970394c6fbc4f71d6cf43bfcde6664e3c5 Mon Sep 17 00:00:00 2001 From: Alain Frisch Date: Mon, 19 Oct 2015 13:48:30 +0000 Subject: [PATCH] Get rid of warning 52. git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@16524 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- testsuite/tests/lib-marshal/intext.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/testsuite/tests/lib-marshal/intext.ml b/testsuite/tests/lib-marshal/intext.ml index 27ffd64d2..9f0bc3d19 100644 --- a/testsuite/tests/lib-marshal/intext.ml +++ b/testsuite/tests/lib-marshal/intext.ml @@ -268,7 +268,7 @@ let test_buffer () = test 208 (Marshal.from_bytes s 0 = longstring); test 209 (try marshal_to_buffer s 0 512 verylongstring []; false - with Failure "Marshal.to_buffer: buffer overflow" -> true); + with Failure s when s = "Marshal.to_buffer: buffer overflow" -> true); marshal_to_buffer s 0 512 3.141592654 []; test 210 (Marshal.from_bytes s 0 = 3.141592654); marshal_to_buffer s 0 512 () []; @@ -323,7 +323,7 @@ let test_buffer () = let rec big n = if n <= 0 then A else H(n, big(n-1)) in test 223 (try marshal_to_buffer s 0 512 (big 1000) []; false - with Failure "Marshal.to_buffer: buffer overflow" -> true) + with Failure s when s = "Marshal.to_buffer: buffer overflow" -> true) let test_size() = let s = Marshal.to_string (G(A, G(B 2, G(C 3.14, G(D "glop", E 'e'))))) [] in @@ -355,7 +355,7 @@ let test_block () = test 408 (marshal_from_block s 512 = longstring); test 409 (try marshal_to_block s 512 verylongstring []; false - with Failure "Marshal.to_buffer: buffer overflow" -> true); + with Failure s when s = "Marshal.to_buffer: buffer overflow" -> true); marshal_to_block s 512 3.141592654 []; test 410 (marshal_from_block s 512 = 3.141592654); marshal_to_block s 512 () [];