Skip to content

Commit

Permalink
Fix test to work in ocaml < 4.10
Browse files Browse the repository at this point in the history
Signed-off-by: Jay Mody <[email protected]>
  • Loading branch information
jaymody committed Feb 5, 2025
1 parent f48a8ee commit 6fcb29a
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions test/error_embedding/run.t
Original file line number Diff line number Diff line change
Expand Up @@ -79,11 +79,11 @@ Error nodes are generated when dependent derivers are not applied.
Flag `-raise-embedded-errors` raises the first embedded error in the AST.

$ echo "let () = ()" > embedded_error.ml
$ echo "module _ = struct [%%ocaml.error \"error 1\"] end" >> embedded_error.ml
$ echo "module T = struct [%%ocaml.error \"error 1\"] end" >> embedded_error.ml
$ echo "[%%ocaml.error \"error 2\"]" >> embedded_error.ml
$ ./extender.exe embedded_error.ml -raise-embedded-errors
File "embedded_error.ml", line 2, characters 21-32:
2 | module _ = struct [%%ocaml.error "error 1"] end
2 | module T = struct [%%ocaml.error "error 1"] end
^^^^^^^^^^^
Error: error 1
[1]

0 comments on commit 6fcb29a

Please sign in to comment.