From: Stephane Glondu Date: Thu, 25 Aug 2011 09:14:40 +0200 Subject: Add possibility to disable execinfo test through environment It fails on armel because of [1] and on powerpc because of [2]. [1] http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=637360 [2] http://caml.inria.fr/mantis/view.php?id=5334 Forwarded: not-needed Signed-off-by: Stephane Glondu --- test/test.ml | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/test/test.ml b/test/test.ml index 4bc468e..0d7ea8c 100644 --- a/test/test.ml +++ b/test/test.ml @@ -495,7 +495,7 @@ let () = let wrap test = with_unix_error (fun () -> test (); Gc.compact ()) in - let tests = ("tests" >::: [ + let tests = ("tests" >::: ([ "eventfd" >:: test_eventfd; "uname" >:: test_uname; "fadvise" >:: test_fadvise; @@ -506,7 +506,10 @@ let () = "resource" >::: test_resource; "strtime" >:: test_strtime; "pts" >:: test_pts; - "execinfo" >:: test_execinfo; + ] @ ( + try let _ = Sys.getenv "DISABLE_EXECINFO" in [] + with Not_found -> ["execinfo" >:: test_execinfo] + ) @ [ "statvfs" >:: test_statvfs; "setenv" >:: test_setenv; "mkdtemp" >:: test_mkdtemp; @@ -522,6 +525,6 @@ let () = "mkstemp" >:: test_mkstemp; "mkostemp" >:: test_mkostemp; "memalign" >:: test_memalign; -]) in +])) in ignore (run_test_tt_main (test_decorate wrap tests)) --