fix test file

backtracking · backtracking · commit 710007690fb2 · 2025-04-11T08:49:14.000+02:00
diff --git a/tests/test_149.ml b/tests/test_149.ml
@@ -1,7 +1,13 @@
 
 (* Issue #149 *)
 
-module G = Graph.Persistent.Digraph.Concrete(String)
+module G = Graph.Persistent.Digraph.Concrete(
+  struct
+    type t = string
+    let compare = compare
+    let hash = Hashtbl.hash
+    let equal = (=)
+  end)
 
 let g0 = G.empty
 let g1 = G.add_edge g0 "a" "b"
@@ -12,4 +18,3 @@ module Topo = Graph.Topological.Make_stable(G)
 
 let l = Topo.fold (fun v l -> v :: l) g []
 let () = assert (l = ["b"; "c"; "a"])
-
