summaryrefslogtreecommitdiff
path: root/testsuite/tests/lexing/escape.ml
blob: bcb753131a273fd248df80ffd384231ab9b7b6b7 (plain)
1
2
3
4
5
6
7
8
9
10
11
(* TEST
   * toplevel
*)

(* Errors *)

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