ocaml-html5rw / test / test_nfc_debug.ml

let () =
  let content = In_channel.with_open_text "validator/tests/html-svg/struct-cond-02-t-haswarn.html" (fun ic ->
    In_channel.input_all ic
  ) in
  let reader = Bytesrw.Bytes.Reader.of_string content in
  let result = Htmlrw_check.check ~system_id:"test.html" reader in
  let warnings = Htmlrw_check.warnings result in
  Printf.printf "Total warnings: %d\n" (List.length warnings);
  List.iter (fun msg ->
    Printf.printf "WARNING: %s\n" msg.Htmlrw_check.text
  ) warnings