test/test_toml_error.ml at main · gazagnaire.org/ocaml-tomlt

gazagnaire.org / ocaml-tomlt

forked from anil.recoil.org/ocaml-tomlt

fork atom

TOML 1.1 codecs for OCaml

fork atom

ocaml-tomlt / test / test_toml_error.ml

at main 11 lines 397 B view raw

wrap content

 1let test_parse_error_message () =
 2  match Tomlt_bytesrw.of_string "invalid = [unclosed" with
 3  | Ok _ -> Alcotest.fail "expected parse error"
 4  | Error e ->
 5      let msg = Tomlt.Toml.Error.to_string e in
 6      Alcotest.(check bool)
 7        "non-empty error message" true
 8        (String.length msg > 0)
 9
10let suite =
11  ("toml_error", [ ("parse error message", `Quick, test_parse_error_message) ])