(* TEST flags = "-dparsetree" ocamlc_byte_exit_status = "2" * setup-ocamlc.byte-build-env ** ocamlc.byte *** check-ocamlc.byte-output *) (* Structures *) {%%M.foo| {x} |} {%%M.foo bar| {|x|} |bar} (* Signatures *) module type S = sig {%%M.foo| {x} |} {%%M.foo bar| {|x|} |bar} end (* Expressions/Pattern/Types *) let {%M.foo| {x} |} : {%M.foo| {x} |} = {%M.foo| {x} |} let {%M.foo bar| {|x|} |bar} : {%M.foo bar| {|x|} |bar} = {%M.foo bar| {|x|} |bar} (* Multiline *) {%%M.foo| {x} |} (* Double quotes inside quoted strings inside comments *) (* {|"|}, and *) (* [%foo {|"|}], and *) (* {%foo|"|} should be valid inside comments *) (* Comment delimiters inside quoted strings inside comments: *) (* {|*)|}, and *) (* [%foo {bar|*)|bar}], and *) (* {%foo bar|*)|bar} should be valid inside comments *)