Promote tests

janestreet · Nov 29, 2024 · bd8e2d4 · bd8e2d4
1 parent e309d55
commit bd8e2d4
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 7 deletions.
diff --git a/src/ocaml/preprocess/parser_raw.ml b/src/ocaml/preprocess/parser_raw.ml
@@ -523,8 +523,8 @@ let rec mktailpat nilloc = let open Location in function
 let mkstrexp e attrs =
   { pstr_desc = Pstr_eval (e, attrs); pstr_loc = e.pexp_loc }
 
-(*let syntax_error () =
-  raise Syntaxerr.Escape_error*)
+let _syntax_error () =
+  raise Syntaxerr.Escape_error
 
 let removed_string_set loc =
   raise_error Syntaxerr.(Error(Syntaxerr.Removed_string_set(make_loc loc)))

diff --git a/src/ocaml/preprocess/parser_raw.mly b/src/ocaml/preprocess/parser_raw.mly
@@ -288,8 +288,8 @@ let rec mktailpat nilloc = let open Location in function
 let mkstrexp e attrs =
   { pstr_desc = Pstr_eval (e, attrs); pstr_loc = e.pexp_loc }
 
-(*let syntax_error () =
-  raise Syntaxerr.Escape_error*)
+let _syntax_error () =
+  raise Syntaxerr.Escape_error
 
 let removed_string_set loc =
   raise_error Syntaxerr.(Error(Syntaxerr.Removed_string_set(make_loc loc)))

diff --git a/tests/test-dirs/type-enclosing/jane-street.t/run.t b/tests/test-dirs/type-enclosing/jane-street.t/run.t
@@ -68,7 +68,7 @@ escape characters in string literals, so we use the revert-newlines script.
 
   type t6 : value = { v : int } [@@unboxed]
       ^
-  With verbosity 0: "type t6 : value = { v : int; } [@@unboxed]"
+  With verbosity 0: "type t6 = { v : int; } [@@unboxed]"
   With verbosity 1: "type t6 : immediate = { v : int; } [@@unboxed]"
 
 
@@ -171,7 +171,7 @@ escape characters in string literals, so we use the revert-newlines script.
   let f6 (x : t6) = x
           ^
   With verbosity 0: "t6"
-  With verbosity 1: "type t6 : value = { v : int; } [@@unboxed]"
+  With verbosity 1: "type t6 = { v : int; } [@@unboxed]"
 
 
 - type annotation
@@ -220,7 +220,7 @@ escape characters in string literals, so we use the revert-newlines script.
 
   let f6 (x : t6) = x
               ^
-  With verbosity 0: "type t6 : value = { v : int; } [@@unboxed]"
+  With verbosity 0: "type t6 = { v : int; } [@@unboxed]"
   With verbosity 1: "type t6 : immediate = { v : int; } [@@unboxed]"