httpev: add permanent redirect status

Author: davesnx

httpev_common.ml

@@ -36,6 +36,7 @@ type status_code =
   | `No_content
   | `Found
   | `Moved
+  | `Permanent_redirect
   | `Bad_request
   | `Unauthorized
   | `Payment_required
@@ -125,6 +126,7 @@ let status_code : reply_status -> int = function
 
   | `Moved -> 301
   | `Found -> 302
+  | `Permanent_redirect -> 308
 
   | `Bad_request -> 400
   | `Unauthorized -> 401
@@ -159,6 +161,7 @@ let show_status_code : status_code -> string = function
 
   | `Moved -> "301 Moved Permanently"
   | `Found -> "302 Found"
+  | `Permanent_redirect -> "308 Permanent Redirect"
 
   | `Bad_request -> "400 Bad Request"
   | `Unauthorized -> "401 Unauthorized"

test.ml

@@ -12,6 +12,12 @@ let test name f = let open OUnit in tests := (name >:: f) :: !tests
 
 let strl = Stre.list
 
+let () = test "Httpev permanent redirect" begin fun () ->
+  assert_equal 308 (Httpev.status_code `Permanent_redirect);
+  assert_equal ~printer:id "HTTP/1.1 308 Permanent Redirect"
+    (Httpev.show_http_reply ~version:`Http_1_1 `Permanent_redirect)
+end
+
 let () = test "HtmlStream" begin fun () ->
   Printexc.record_backtrace true;
   let module HS = HtmlStream in