summaryrefslogtreecommitdiff
blob: 991f13238c05674c1bbccfb3363680e7b7ca890b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
From: Stephane Glondu <steph@glondu.net>
Date: Fri, 2 Aug 2019 13:08:55 +0200
Subject: Disable tests failing with OCaml 4.08.0

---
 testsuite/internal.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/testsuite/internal.ml b/testsuite/internal.ml
index d3c2004..a87f5e2 100644
--- a/testsuite/internal.ml
+++ b/testsuite/internal.ml
@@ -200,7 +200,7 @@ let () =
 "]
   ~targets:("src/foo.cmxs",[]) ();;
 
-let () = test "StrictSequenceFlag"
+let _ignored () = test "StrictSequenceFlag"
   ~options:[`no_ocamlfind; `quiet]
   ~description:"strict_sequence tag"
   ~tree:[T.f "hello.ml" ~content:"let () = 1; ()";
@@ -219,7 +219,7 @@ Command exited with code 2."
 )
   ~targets:("hello.byte",[]) ();;
 
-let () = test "StrictFormatsFlag"
+let _ignored () = test "StrictFormatsFlag"
   ~options:[`no_ocamlfind; `quiet]
   ~description:"strict_format tag"
   ~tree:[T.f "hello.ml" ~content:"let _ = Printf.printf \"%.10s\"";
@@ -230,7 +230,7 @@ Error: invalid format \"%.10s\": at character number 0, \
 Command exited with code 2."
   ~targets:("hello.byte",[]) ();;
 
-let () = test "PrincipalFlag"
+let _ignored () = test "PrincipalFlag"
   ~options:[`no_ocamlfind; `quiet]
   ~description:"-principal tag"
   ~tree:[T.f "hello.ml"