Skip to content

content range tests #249

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
avsm merged 1 commit into from
Feb 15, 2015
Merged

content range tests #249

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
11 changes: 11 additions & 0 deletions lib_test/test_header.ml
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -86,13 +86,24 @@ let rec was_successful =
| RTodo _::_ ->
false

module Content_range = struct
let h1 = H.of_list [("Content-Length", "123")]
let h2 = H.of_list [("Content-Range", "bytes 200-300/1000")]
let none () = assert_equal None (H.init () |> H.get_content_range)
let content_length () = assert_equal (Some 123L) (H.get_content_range h1)
let content_range () = assert_equal (Some 101L) (H.get_content_range h2)
end

let _ =
let suites = [
"Media Type" >:: get_media_type;
"Valid Auth" >:: valid_auth;
"Valid Set-Cookie" >:: valid_set_cookie;
"Valid Cookie" >:: valid_cookie;
"Cookie with =" >:: cookie_with_eq_val;
"Content Range - none" >:: Content_range.none;
"Content Range - content-length" >:: Content_range.content_length;
"Content Range - content-range" >:: Content_range.content_range;
] in
let verbose = ref false in
let set_verbose _ = verbose := true in
Expand Down