13 lines
344 B
OCaml
13 lines
344 B
OCaml
|
open Import
|
||
|
|
|
||
|
|
let () = Printexc.record_backtrace false
|
||
|
|
let any = Re.(compile (rep any))
|
||
|
|
|
||
|
|
let%expect_test "bound errors" =
|
||
|
|
let (_ : bool) = Re.execp any ~pos:4 "foo" in
|
||
|
|
[%expect {| |}];
|
||
|
|
let (_ : bool) = Re.execp any ~pos:1 ~len:3 "foo" in
|
||
|
|
[%expect.unreachable]
|
||
|
|
[@@expect.uncaught_exn {| (Invalid_argument "Re.exec: out of bounds") |}]
|
||
|
|
;;
|