Promote tests

Author: liam923

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)))

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)))

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]"