(** View rendering: currently that the error page carries the requested HTTP
    status. *)

let test_error_page_status () =
  let response =
    Ogit.Views.error_page ~status:`Not_Found ~title:"Not found" "missing"
    |> Lwt_main.run
  in
  Alcotest.(check int) "404" 404 (Dream.status response |> Dream.status_to_int)

let suite =
  ( "views",
    [ Alcotest.test_case "error page status" `Quick test_error_page_status ] )