More generic test printing of code actions.

Author: cristianoc

analysis/src/Commands.ml

@@ -364,17 +364,15 @@ let test ~path =
               Xform.extractCodeActions ~path ~pos:(line, col) ~currentFile:path
             in
             codeActions
-            |> List.iter (fun codeAction ->
-                   match codeAction with
-                   | {
-                    Protocol.title;
-                    edit = {documentChanges = [{edits = [{range; newText}]}]};
-                   } ->
-                     Printf.printf "Hit %s %s\nnewText:\n%s\n" title
-                       (Protocol.stringifyRange range)
-                       newText
-                   | _ -> assert false
-                   (* TODO *))
+            |> List.iter (fun {Protocol.title; edit = {documentChanges}} ->
+                   Printf.printf "Hit: %s\n" title;
+                   documentChanges
+                   |> List.iter (fun {Protocol.edits} ->
+                          edits
+                          |> List.iter (fun {Protocol.range; newText} ->
+                                 Printf.printf "%s\nnewText:\n%s\n"
+                                   (Protocol.stringifyRange range)
+                                   newText)))
           | _ -> ());
           print_newline ())
     in

analysis/tests/src/expected/Xform.res.txt

@@ -1,5 +1,6 @@
 Xform tests/src/Xform.res 6:5
-Hit Replace with switch {"start": {"line": 6, "character": 0}, "end": {"line": 11, "character": 1}}
+Hit: Replace with switch
+{"start": {"line": 6, "character": 0}, "end": {"line": 11, "character": 1}}
 newText:
 switch kind {
 | First =>
@@ -9,7 +10,8 @@ switch kind {
 }
 
 Xform tests/src/Xform.res 13:15
-Hit Replace with switch {"start": {"line": 13, "character": 0}, "end": {"line": 13, "character": 79}}
+Hit: Replace with switch
+{"start": {"line": 13, "character": 0}, "end": {"line": 13, "character": 79}}
 newText:
 switch kind {
 | #kind("First", {name: "abc", age: 3}) => ret("First")