testsuite/tests/lexing/escape.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

(* TEST_BELOW
(* Blank lines added here to preserve locations. *)
*)

(* Errors *)

let invalid = "\99" ;;
let invalid = "\999" ;;
let invalid = "\o777" ;;
let invalid = "\o77" ;;
let invalid = "\o99" ;;

(* TEST
 toplevel;
*)