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"
|