Use non-located variants in the tests engine

colis-anr · May 8, 2023 · 5563cda · 5563cda
1 parent 4f366fc
commit 5563cda
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/tests/run.ml b/tests/run.ml
@@ -96,7 +96,7 @@ let run_one_test ~test_number =
 
   let fname = artifacts_file ~test_number "input.json" in
   Log.debug (fun m -> m "Printing it to `%s`..." fname);
-  with_file fname (fun fmt -> Morsmall.pp_print_json fmt input);
+  with_file fname (fun fmt -> Morsmall.pp_print_json_noloc fmt input);
 
   let fname = artifacts_file ~test_number "input.sh" in
   Log.debug (fun m -> m "Printing it to `%s`..." fname);
@@ -114,9 +114,9 @@ let run_one_test ~test_number =
 
   let fname = artifacts_file ~test_number "output.json" in
   Log.debug (fun m -> m "Printing it to `%s`..." fname);
-  with_file fname (fun fmt -> Morsmall.pp_print_json fmt output);
+  with_file fname (fun fmt -> Morsmall.pp_print_json_noloc fmt output);
 
-  if not (Morsmall.equal_program input output) then
+  if not (Morsmall.equal_program_noloc input output) then
     (
       Log.debug (fun m -> m "AST do not match. Incoming error.");
       raise (ASTsDontMatch (input, output))