summaryrefslogtreecommitdiff
path: root/testsuite/tests/parsing/broken_invariants.ml
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/parsing/broken_invariants.ml')
-rw-r--r--testsuite/tests/parsing/broken_invariants.ml29
1 files changed, 20 insertions, 9 deletions
diff --git a/testsuite/tests/parsing/broken_invariants.ml b/testsuite/tests/parsing/broken_invariants.ml
index 29e09a191c..24e27a6a6c 100644
--- a/testsuite/tests/parsing/broken_invariants.ml
+++ b/testsuite/tests/parsing/broken_invariants.ml
@@ -1,12 +1,12 @@
-(* TEST
- readonly_files = "illegal_ppx.ml"
- * setup-ocamlc.byte-build-env
- ** ocamlc.byte with ocamlcommon
- all_modules="illegal_ppx.ml"
- program="ppx.exe"
- *** toplevel
- all_modules="broken_invariants.ml"
- flags="-ppx '${ocamlrun} ${test_build_directory_prefix}/ocamlc.byte/ppx.exe'"
+(* TEST_BELOW
+(* Blank lines added here to preserve locations. *)
+
+
+
+
+
+
+
*)
let empty_tuple = [%tuple];;
@@ -18,3 +18,14 @@ let f = function [%record_with_functor_fields] -> ();;
module type s = sig
[%%missing_rhs]
end;;
+
+(* TEST
+ readonly_files = "illegal_ppx.ml";
+ setup-ocamlc.byte-build-env;
+ all_modules = "illegal_ppx.ml";
+ program = "ppx.exe";
+ ocamlc.byte with ocamlcommon;
+ all_modules = "broken_invariants.ml";
+ flags = "-ppx '${ocamlrun} ${test_build_directory_prefix}/ocamlc.byte/ppx.exe'";
+ toplevel;
+*)