Skip to content

Make expect tests compiler-independent #330

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 2 commits into from
Apr 8, 2022
Merged

Make expect tests compiler-independent #330

Show file tree
Hide file tree
Changes from 1 commit
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
2d17dc8
Make expect tests compiler-independent
pitag-ha Mar 31, 2022
e4518c4
Expect-test: keep print_out_value stable
pitag-ha Apr 5, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
1 change: 1 addition & 0 deletions test/expect/dune
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -10,6 +10,7 @@
ppxlib
ppxlib.metaquot
ppxlib.traverse
ppxlib.astlib
findlib.top
ppxlib_ast
;; We don't actually use findlib.dynload, however it is a
Expand Down
3 changes: 2 additions & 1 deletion test/expect/expect_test.ml
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -87,7 +87,8 @@ let main () =
try
let phr = apply_rewriters phr in
if !Clflags.dump_source then
Format.fprintf ppf "%a@?" Pprintast.top_phrase phr;
Format.fprintf ppf "%a@?" Ppxlib.Pprintast.top_phrase
(Ppxlib.Selected_ast.Of_ocaml.copy_toplevel_phrase phr);
ignore (Toploop.execute_phrase true ppf phr : bool)
with exn -> Location.report_exception ppf exn));
Format.fprintf ppf "@?|}]@.");
Expand Down