28976

Committed 06 Nov 2024 09:44AM UTC coverage: 6.927% (+0.01%) from 6.913%

Build # 28976

Build Type

push

github

Committed by

web-flow

Commit Message

fix: Add or remove dune from package sets to allow resolving packages depending on it (#11103)

* fix: Add `dune` to existing packages to allow resolving

Signed-off-by: Marek Kubica <marek@tarides.com>

* Alternate solution which removes `dune` from formulas

Signed-off-by: Marek Kubica <marek@tarides.com>

* chore: leave a comment

Signed-off-by: Rudi Grinberg <me@rgrinberg.com>

* fix(pkg): use correct dune version to evaluate

Signed-off-by: Rudi Grinberg <me@rgrinberg.com>

---------

Signed-off-by: Marek Kubica <marek@tarides.com>
Signed-off-by: Rudi Grinberg <me@rgrinberg.com>
Co-authored-by: Rudi Grinberg <me@rgrinberg.com>

Run Details

1 of 6 new or added lines in 2 files covered. (16.67%)

1612 existing lines in 28 files now uncovered.

2951 of 42601 relevant lines covered (6.93%)

26740.63 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

22.22

/src/dune_lang/binary_kind.ml

open Stdune

type t =
  | C
  | Exe
  | Object
  | Shared_object
  | Plugin

let compare x y =
  match x, y with
  | C, C -> Eq
  | C, _ -> Lt
  | _, C -> Gt
  | Exe, Exe -> Eq
  | Exe, _ -> Lt
  | _, Exe -> Gt
  | Object, Object -> Eq
  | Object, _ -> Lt
  | _, Object -> Gt
  | Shared_object, Shared_object -> Eq
  | Shared_object, _ -> Lt
  | _, Shared_object -> Gt
  | Plugin, Plugin -> Eq
;;

let decode =
  let open Dune_sexp in
  let open Decoder in
  sum
    [ "c", Syntax.since Stanza.syntax (1, 2) >>> return C
    ; "exe", return Exe
    ; "object", return Object
    ; "shared_object", return Shared_object
    ; "plugin", Syntax.since Stanza.syntax (2, 4) >>> return Plugin
    ]
;;

let to_string = function
  | C -> "c"
  | Exe -> "exe"
  | Object -> "object"
  | Shared_object -> "shared_object"
  | Plugin -> "plugin"
;;

let to_dyn t = Dyn.variant (to_string t) []
let encode t = Dune_sexp.atom (to_string t)
let all = [ C; Exe; Object; Shared_object; Plugin ]

1	open Stdune
2
3	type t =
4	\| C
5	\| Exe
6	\| Object
7	\| Shared_object
8	\| Plugin
9
10	let compare x y =
UNCOV 11	match x, y with	×
12	\| C, C -> Eq	×
13	\| C, _ -> Lt	×
14	\| _, C -> Gt	×
15	\| Exe, Exe -> Eq	×
16	\| Exe, _ -> Lt	×
17	\| _, Exe -> Gt	×
18	\| Object, Object -> Eq	×
19	\| Object, _ -> Lt	×
20	\| _, Object -> Gt	×
21	\| Shared_object, Shared_object -> Eq	×
22	\| Shared_object, _ -> Lt	×
23	\| _, Shared_object -> Gt	×
24	\| Plugin, Plugin -> Eq	×
25	;;
26
27	let decode =
28	let open Dune_sexp in
29	let open Decoder in
30	sum	38✔
31	[ "c", Syntax.since Stanza.syntax (1, 2) >>> return C	38✔
32	; "exe", return Exe	38✔
33	; "object", return Object	38✔
34	; "shared_object", return Shared_object	38✔
35	; "plugin", Syntax.since Stanza.syntax (2, 4) >>> return Plugin	38✔
36	]
37	;;
38
39	let to_string = function
UNCOV 40	\| C -> "c"	×
UNCOV 41	\| Exe -> "exe"	×
UNCOV 42	\| Object -> "object"	×
UNCOV 43	\| Shared_object -> "shared_object"	×
UNCOV 44	\| Plugin -> "plugin"	×
45	;;
46
47	let to_dyn t = Dyn.variant (to_string t) []	×
48	let encode t = Dune_sexp.atom (to_string t)	×
49	let all = [ C; Exe; Object; Shared_object; Plugin ]

ocaml / dune / 28976

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous