Update tests

ocaml-ppx · Oct 5, 2023 · 9ee3540 · 9ee3540
1 parent adbc52c
commit 9ee3540
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 5 deletions.
diff --git a/test/passing/tests/ocp_indent_compat-break_colon_after.ml.ref b/test/passing/tests/ocp_indent_compat-break_colon_after.ml.ref
@@ -83,3 +83,11 @@ let long_function_name :
     type a. a long_long_type -> a -> a -> a -> wrap_wrap_wrap -> unit
   =
  fun () -> ()
+
+let add_edge target dep =
+  if target <> dep then (
+    Hashtbl.replace edges dep
+      (target :: (try Hashtbl.find edges dep with Not_found -> [])) ;
+    Hashtbl.replace edge_count target
+      (1 + try Hashtbl.find edge_count target with Not_found -> 0) ;
+    if not (Hashtbl.mem edge_count dep) then Hashtbl.add edge_count dep 0 )
diff --git a/test/passing/tests/ocp_indent_compat.ml b/test/passing/tests/ocp_indent_compat.ml
@@ -86,10 +86,9 @@ let long_function_name
  fun () -> ()
 
 let add_edge target dep =
-  if target <> dep
-  then (
+  if target <> dep then (
     Hashtbl.replace edges dep
-      (target :: (try Hashtbl.find edges dep with Not_found -> []));
+      (target :: (try Hashtbl.find edges dep with Not_found -> [])) ;
     Hashtbl.replace edge_count target
-      (1 + try Hashtbl.find edge_count target with Not_found -> 0);
-    if not (Hashtbl.mem edge_count dep) then Hashtbl.add edge_count dep 0)
+      (1 + try Hashtbl.find edge_count target with Not_found -> 0) ;
+    if not (Hashtbl.mem edge_count dep) then Hashtbl.add edge_count dep 0 )