mirrors/guru
1
0
Fork 0
mirror of https://github.com/gentoo-mirror/guru.git synced 2026-07-19 03:53:22 -04:00
Code Issues Packages Projects Releases Wiki Activity

dev-ml/gapi-ocaml: new package, add 0.4.2

Browse Source 
Signed-off-by: Alessandro Barbieri <lssndrbarbieri@gmail.com>
This commit is contained in:
Alessandro Barbieri
2022-04-27 02:05:48 +02:00
parent 8cdbd992e8
commit ba02285802
4 changed files with 117 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
dev-ml/gapi-ocaml/files/gapi-ocaml-0.4.2-ounit2.patch Normal file
View File

@@ -0,0 +1,58 @@
diff --git a/gapi-ocaml.opam b/gapi-ocaml.opam
index cb9b0fb5..923675d8 100644
--- a/gapi-ocaml.opam
+++ b/gapi-ocaml.opam
@@ -15,7 +15,7 @@ depends: [
"dune"
"ocamlnet" {>= "4.1.4"}
"ocurl"
- "ounit" {with-test}
+ "ounit2" {with-test}
"yojson"
]
synopsis: "A simple OCaml client for Google Services"
diff --git a/src/test/dune b/src/test/dune
index 5d955f42..ef45f0ce 100644
--- a/src/test/dune
+++ b/src/test/dune
@@ -1,7 +1,7 @@
(executable
(name testSuite)
(flags (:standard -w -3-6-23-27-32-33-50))
- (libraries threads oUnit gapi-ocaml))
+ (libraries threads ounit2 gapi-ocaml))
(alias
(name runtest)
diff --git a/src/test/testSuite.ml b/src/test/testSuite.ml
index 7851661e..150781f7 100644
--- a/src/test/testSuite.ml
+++ b/src/test/testSuite.ml
@@ -76,11 +76,11 @@ let build_suite_from_list test_list =
let _ =
let test_list = ref (core_tests @ model_tests) in
- let ounit_specs =
+ let ounit2_specs =
[
- ("-verbose", Arg.Unit (fun _ -> ()), "See oUnit doc");
- ("-only-test", Arg.String (fun _ -> ()), "See oUnit doc");
- ("-list-test", Arg.String (fun _ -> ()), "See oUnit doc");
+ ("-verbose", Arg.Unit (fun _ -> ()), "See ounit2 doc");
+ ("-only-test", Arg.String (fun _ -> ()), "See ounit2 doc");
+ ("-list-test", Arg.String (fun _ -> ()), "See ounit2 doc");
]
in
let arg_specs =
@@ -100,9 +100,9 @@ let _ =
]
in
let _ =
- Arg.parse (arg_specs @ ounit_specs)
+ Arg.parse (arg_specs @ ounit2_specs)
(fun _ -> ())
- ("Usage: " ^ Sys.argv.(0) ^ " [-service svc] [-all] [oUnit arguments]")
+ ("Usage: " ^ Sys.argv.(0) ^ " [-service svc] [-all] [ounit2 arguments]")
in
let _ =
(* Reset argument counter, to let OUnit reparse arguments *)