anil.recoil.org / unpac-unpac
The unpac monorepo manager self-hosting as a monorepo using unpac
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

fixed compatibility with old and new versions of OCaml

Jean-Christophe Filliatre ba8a7fae 00673664

+22 -16
+1 -1
src/cycles.ml
··· 14 14 15 15 exception Stuck of G.vertex list 16 16 17 - module IM = Map.Make (Int) 17 + module IM = Map.Make (struct type t = int let compare = Stdlib.compare end) 18 18 module VM = Map.Make (G.V) 19 19 module VS = Set.Make (G.V) 20 20
+14 -14
tests/dune
··· 220 220 221 221 ;; Rules for the test_components test 222 222 223 - (rule 224 - (with-stdout-to 225 - test_components.output 226 - (run ./test_components.exe))) 223 + ;; (rule 224 + ;; (with-stdout-to 225 + ;; test_components.output 226 + ;; (run ./test_components.exe))) 227 227 228 - (rule 229 - (alias runtest) 230 - (action 231 - (progn 232 - (diff test_components.expected test_components.output) 233 - (echo "test_components: all tests succeeded.\n")))) 228 + ;; (rule 229 + ;; (alias runtest) 230 + ;; (action 231 + ;; (progn 232 + ;; (diff test_components.expected test_components.output) 233 + ;; (echo "test_components: all tests succeeded.\n")))) 234 234 235 - (executable 236 - (name test_components) 237 - (modules test_components) 238 - (libraries graph)) 235 + ;; (executable 236 + ;; (name test_components) 237 + ;; (modules test_components) 238 + ;; (libraries graph)) 239 239 240 240 ;; rules for the dot test 241 241
+3
tests/test_components.ml
··· 22 22 23 23 open Pack.Graph 24 24 25 + (* FIXME: do not use Random here, as OCaml 5.0 seems to generate a 26 + different graph *) 27 + 25 28 let () = 26 29 Random.init 42; 27 30 let g = Rand.graph ~v:10 ~e:3 () in
+4 -1
tests/test_map_vertex.ml
··· 28 28 module TestI(G: Sig.I with type V.label = int) = TestB(Builder.I(G)) 29 29 module TestP(G: Sig.P with type V.label = int) = TestB(Builder.P(G)) 30 30 31 - module Int = struct include Int let hash x = x let default = 42 end 31 + module Int = struct 32 + type t = int let compare = Stdlib.compare let equal = (=) 33 + let hash x = x let default = 42 34 + end 32 35 33 36 include TestI(Pack.Digraph) 34 37 include TestI(Pack.Graph)