let test_parse_error_message () =
  match Tomlt_bytesrw.of_string "invalid = [unclosed" with
  | Ok _ -> Alcotest.fail "expected parse error"
  | Error e ->
      let msg = Tomlt.Toml.Error.to_string e in
      Alcotest.(check bool)
        "non-empty error message" true
        (String.length msg > 0)

let suite =
  ("toml_error", [ ("parse error message", `Quick, test_parse_error_message) ])