1 (** View rendering: currently that the error page carries the requested HTTP 2 status. *) 3 4 let test_error_page_status () = 5 let response = 6 Ogit.Views.error_page ~status:`Not_Found ~title:"Not found" "missing" 7 |> Lwt_main.run 8 in 9 Alcotest.(check int) "404" 404 (Dream.status response |> Dream.status_to_int) 10 11 let suite = 12 ( "views", 13 [ Alcotest.test_case "error page status" `Quick test_error_page_status ] ) 14