(** Test for nesting checker functionality via public API *)

let check_html html =
  let reader = Bytesrw.Bytes.Reader.of_string html in
  Htmlrw_check.check reader

let () =
  (* Test 1: <a> cannot contain another <a> *)
  Printf.printf "Test 1: Checking <a href> inside <a href>\n";
  let result1 = check_html "<a href='#'><a href='#'>nested</a></a>" in
  let errors1 = Htmlrw_check.errors result1 in
  Printf.printf "  Found %d error(s)\n" (List.length errors1);
  List.iter (fun msg ->
    Printf.printf "    - %s\n" msg.Htmlrw_check.text
  ) errors1;

  (* Test 2: <button> inside <a> *)
  Printf.printf "\nTest 2: Checking <button> inside <a href>\n";
  let result2 = check_html "<a href='#'><button>click</button></a>" in
  let errors2 = Htmlrw_check.errors result2 in
  Printf.printf "  Found %d error(s)\n" (List.length errors2);
  List.iter (fun msg ->
    Printf.printf "    - %s\n" msg.Htmlrw_check.text
  ) errors2;

  (* Test 3: form inside form *)
  Printf.printf "\nTest 3: Checking <form> inside <form>\n";
  let result3 = check_html "<form><form>nested</form></form>" in
  let errors3 = Htmlrw_check.errors result3 in
  Printf.printf "  Found %d error(s)\n" (List.length errors3);
  List.iter (fun msg ->
    Printf.printf "    - %s\n" msg.Htmlrw_check.text
  ) errors3;

  (* Test 4: header inside footer (should be allowed) *)
  Printf.printf "\nTest 4: Checking <header> inside <footer>\n";
  let result4 = check_html "<footer><header>test</header></footer>" in
  let errors4 = Htmlrw_check.errors result4 in
  Printf.printf "  Found %d error(s)\n" (List.length errors4);
  if List.length errors4 > 0 then
    List.iter (fun msg ->
      Printf.printf "    - %s\n" msg.Htmlrw_check.text
    ) errors4
  else
    Printf.printf "    OK: No errors (header inside footer is valid)\n";

  (* Test 5: input inside button *)
  Printf.printf "\nTest 5: Checking <input type=text> inside <button>\n";
  let result5 = check_html "<button><input type='text'></button>" in
  let errors5 = Htmlrw_check.errors result5 in
  Printf.printf "  Found %d error(s)\n" (List.length errors5);
  List.iter (fun msg ->
    Printf.printf "    - %s\n" msg.Htmlrw_check.text
  ) errors5;

  (* Test 6: valid nesting - should not error *)
  Printf.printf "\nTest 6: Checking valid nesting: <div> inside <div>\n";
  let result6 = check_html "<div><div>nested</div></div>" in
  let errors6 = Htmlrw_check.errors result6 in
  Printf.printf "  Found %d error(s)\n" (List.length errors6);
  if List.length errors6 = 0 then
    Printf.printf "    OK: No errors as expected\n"
  else
    List.iter (fun msg ->
      Printf.printf "    - %s\n" msg.Htmlrw_check.text
    ) errors6;

  Printf.printf "\nAll tests completed!\n"