Add test (we think / hope this will fail in CI)

ocaml-flambda · May 22, 2023 · 451a805 · 451a805
1 parent 848aca6
commit 451a805
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 0 deletions.
diff --git a/ocaml/testsuite/tests/tool-toplevel/any.compilers.reference b/ocaml/testsuite/tests/tool-toplevel/any.compilers.reference
@@ -0,0 +1,5 @@
+Exception: Assert_failure ("//toplevel//", 9, 0).
+Called from Stdlib__Fun.protect in file "fun.ml", line 37, characters 8-15
+Re-raised at Stdlib__Fun.protect in file "fun.ml", line 42, characters 6-52
+Called from Topeval.load_lambda in file "ocaml/toplevel/byte/topeval.ml", line 90, characters 4-150
+
diff --git a/ocaml/testsuite/tests/tool-toplevel/any.ml b/ocaml/testsuite/tests/tool-toplevel/any.ml
@@ -0,0 +1,9 @@
+(* TEST
+   exit_status = "2"
+   * toplevel
+   * toplevel.opt
+     reference = "${test_source_directory}/any.native.reference"
+*)
+
+(* This checks that things with layout "any" don't cause problems in [Tstr_eval] *)
+assert false;;
diff --git a/ocaml/testsuite/tests/tool-toplevel/any.native.reference b/ocaml/testsuite/tests/tool-toplevel/any.native.reference
@@ -0,0 +1,2 @@
+Exception: Assert_failure ("//toplevel//", 9, 0).
+
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,2 @@
		Exception: Assert_failure ("//toplevel//", 9, 0).