forked from
anil.recoil.org/monopam
Monorepo management for opam overlays
Format sync_progress.mli and test_package.ml
+4
-8
+2
-2
lib/sync_progress.mli
+2
-2
lib/sync_progress.mli
···
32
32
(** Progress state for a sync phase. *)
33
33
34
34
val v : total:int -> string -> t
35
-
(** [v ~total phase_name] creates progress for a phase with [total] items.
36
-
Shows as "[phase_name] (0/[total])" initially. *)
35
+
(** [v ~total phase_name] creates progress for a phase with [total] items. Shows
36
+
as "[phase_name] (0/[total])" initially. *)
37
37
38
38
val tick : t -> string -> unit
39
39
(** [tick t name] increments progress and updates message to show [name]. *)
+2
-6
test/test_package.ml
+2
-6
test/test_package.ml
···
117
117
let test_same_repo () =
118
118
let dev_repo1 = Uri.of_string "https://github.com/ocaml/ocaml.git" in
119
119
let dev_repo2 = Uri.of_string "https://github.com/mirage/mirage.git" in
120
-
let pkg1 =
121
-
Package.v ~name:"ocaml" ~version:"dev" ~dev_repo:dev_repo1 ()
122
-
in
120
+
let pkg1 = Package.v ~name:"ocaml" ~version:"dev" ~dev_repo:dev_repo1 () in
123
121
let pkg2 =
124
122
Package.v ~name:"ocaml-base" ~version:"dev" ~dev_repo:dev_repo1 ()
125
123
in
126
-
let pkg3 =
127
-
Package.v ~name:"mirage" ~version:"dev" ~dev_repo:dev_repo2 ()
128
-
in
124
+
let pkg3 = Package.v ~name:"mirage" ~version:"dev" ~dev_repo:dev_repo2 () in
129
125
Alcotest.(check bool) "same repo" true (Package.same_repo pkg1 pkg2);
130
126
Alcotest.(check bool) "different repo" false (Package.same_repo pkg1 pkg3)
131
127