Gentoo Archives: gentoo-commits

From: Alexis Ballier <aballier@g.o>
To: gentoo-commits@l.g.o
Subject: [gentoo-commits] repo/gentoo:master commit in: dev-ml/ocaml-containers/files/, dev-ml/ocaml-containers/
Date: Mon, 03 Jul 2017 17:40:22
Message-Id: 1499103614.94a16fb921f072d6f3d4cf776834ec316031ed51.aballier@gentoo
1 commit: 94a16fb921f072d6f3d4cf776834ec316031ed51
2 Author: Alexis Ballier <aballier <AT> gentoo <DOT> org>
3 AuthorDate: Mon Jul 3 17:40:06 2017 +0000
4 Commit: Alexis Ballier <aballier <AT> gentoo <DOT> org>
5 CommitDate: Mon Jul 3 17:40:14 2017 +0000
6 URL: https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=94a16fb9
7
8 dev-ml/ocaml-containers: backport upstream test build fix with latest qcheck, bug #623664
9
10 Package-Manager: Portage-2.3.6, Repoman-2.3.2
11
12 dev-ml/ocaml-containers/files/qcheck.patch | 61 ++++++++++++++++++++++
13 .../ocaml-containers/ocaml-containers-1.2.ebuild | 2 +
14 2 files changed, 63 insertions(+)
15
16 diff --git a/dev-ml/ocaml-containers/files/qcheck.patch b/dev-ml/ocaml-containers/files/qcheck.patch
17 new file mode 100644
18 index 00000000000..c88ef31741a
19 --- /dev/null
20 +++ b/dev-ml/ocaml-containers/files/qcheck.patch
21 @@ -0,0 +1,61 @@
22 +commit b2f8eb5b27a95f37509ab6345910ecd62b3c8a90
23 +Author: Simon Cruanes <simon.cruanes.2007@×××.org>
24 +Date: Tue May 30 09:16:37 2017 +0200
25 +
26 + update to qcheck 0.6
27 +
28 +diff --git a/src/core/CCList.ml b/src/core/CCList.ml
29 +index ebdf7ce..ef4254e 100644
30 +--- a/src/core/CCList.ml
31 ++++ b/src/core/CCList.ml
32 +@@ -688,9 +688,9 @@ let take_while p l =
33 + *)
34 +
35 + (*$Q
36 +- Q.(pair (fun1 small_int bool) (list small_int)) (fun (f,l) -> \
37 +- let l1 = take_while f l in \
38 +- List.for_all f l1)
39 ++ Q.(pair (fun1 Observable.int bool) (list small_int)) (fun (f,l) -> \
40 ++ let l1 = take_while (Q.Fn.apply f) l in \
41 ++ List.for_all (Q.Fn.apply f) l1)
42 + *)
43 +
44 + let rec drop_while p l = match l with
45 +@@ -698,8 +698,8 @@ let rec drop_while p l = match l with
46 + | x :: l' -> if p x then drop_while p l' else l
47 +
48 + (*$Q
49 +- Q.(pair (fun1 small_int bool) (list small_int)) (fun (f,l) -> \
50 +- take_while f l @ drop_while f l = l)
51 ++ Q.(pair (fun1 Observable.int bool) (list small_int)) (fun (f,l) -> \
52 ++ take_while (Q.Fn.apply f) l @ drop_while (Q.Fn.apply f) l = l)
53 + *)
54 +
55 + let take_drop_while p l =
56 +@@ -720,9 +720,9 @@ let take_drop_while p l =
57 + direct direct_depth_default_ p l
58 +
59 + (*$Q
60 +- Q.(pair (fun1 small_int bool) (list small_int)) (fun (f,l) -> \
61 +- let l1,l2 = take_drop_while f l in \
62 +- (l1 = take_while f l) && (l2 = drop_while f l))
63 ++ Q.(pair (fun1 Observable.int bool) (list small_int)) (fun (f,l) -> \
64 ++ let l1,l2 = take_drop_while (Q.Fn.apply f) l in \
65 ++ (l1 = take_while (Q.Fn.apply f) l) && (l2 = drop_while (Q.Fn.apply f) l))
66 + *)
67 +
68 + let last n l =
69 +diff --git a/src/data/CCRAL.ml b/src/data/CCRAL.ml
70 +index 0c00c3a..5d9aa24 100644
71 +--- a/src/data/CCRAL.ml
72 ++++ b/src/data/CCRAL.ml
73 +@@ -151,7 +151,8 @@ let mapi ~f l =
74 + *)
75 +
76 + (*$Q
77 +- Q.(pair (list small_int)(fun2 int int bool)) (fun (l,f) -> \
78 ++ Q.(pair (list small_int)(fun2 Observable.int Observable.int bool)) (fun (l,f) -> \
79 ++ let f = Q.Fn.apply f in \
80 + mapi ~f (of_list l) |> to_list = List.mapi f l )
81 + *)
82 +
83
84 diff --git a/dev-ml/ocaml-containers/ocaml-containers-1.2.ebuild b/dev-ml/ocaml-containers/ocaml-containers-1.2.ebuild
85 index 33e8871a4f7..30745be4f65 100644
86 --- a/dev-ml/ocaml-containers/ocaml-containers-1.2.ebuild
87 +++ b/dev-ml/ocaml-containers/ocaml-containers-1.2.ebuild
88 @@ -24,6 +24,8 @@ RDEPEND="
89 DEPEND="${RDEPEND} dev-ml/cppo
90 test? ( dev-ml/iTeML dev-ml/ounit dev-ml/gen )"
91
92 +PATCHES=( "${FILESDIR}/qcheck.patch" )
93 +
94 src_configure() {
95 oasis_configure_opts="
96 --enable-unix