diff options
| author | Loïc Hoguin <[email protected]> | 2012-12-03 15:57:27 +0100 |
|---|---|---|
| committer | Loïc Hoguin <[email protected]> | 2012-12-03 15:57:27 +0100 |
| commit | 8bc6bde62f92d77e44f649d82bc899f97a641c06 (patch) | |
| tree | 415ca201e52595507542589644bfad48bf927c05 /test/http_SUITE.erl | |
| parent | 5ef4a15b48bfc1b5ca867b893b7cbd1b535175f7 (diff) | |
| download | cowboy-8bc6bde62f92d77e44f649d82bc899f97a641c06.tar.gz cowboy-8bc6bde62f92d77e44f649d82bc899f97a641c06.tar.bz2 cowboy-8bc6bde62f92d77e44f649d82bc899f97a641c06.zip | |
Remove the dependency on httpd_util
Add the function cowboy_clock:rfc1123/1 that formats the given
date to the RFC1123 format.
Diffstat (limited to 'test/http_SUITE.erl')
| -rw-r--r-- | test/http_SUITE.erl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test/http_SUITE.erl b/test/http_SUITE.erl index 797be0d..dfb9496 100644 --- a/test/http_SUITE.erl +++ b/test/http_SUITE.erl @@ -49,6 +49,7 @@ -export([onresponse_reply/1]). -export([pipeline/1]). -export([rest_bad_accept/1]). +-export([rest_expires/1]). -export([rest_keepalive/1]). -export([rest_keepalive_post/1]). -export([rest_missing_get_callbacks/1]). @@ -97,6 +98,7 @@ groups() -> nc_zero, pipeline, rest_bad_accept, + rest_expires, rest_keepalive, rest_keepalive_post, rest_missing_get_callbacks, @@ -261,6 +263,7 @@ init_dispatch(Config) -> {[<<"missing_put_callbacks">>], rest_missing_callbacks, []}, {[<<"nodelete">>], rest_nodelete_resource, []}, {[<<"resetags">>], rest_resource_etags, []}, + {[<<"rest_expires">>], rest_expires, []}, {[<<"loop_timeout">>], http_handler_loop_timeout, []}, {[], http_handler, []} ]} @@ -664,6 +667,16 @@ rest_bad_accept(Config) -> Client), {ok, 400, _, _} = cowboy_client:response(Client2). +rest_expires(Config) -> + Client = ?config(client, Config), + {ok, Client2} = cowboy_client:request(<<"GET">>, + build_url("/rest_expires", Config), Client), + {ok, 200, RespHeaders, _} = cowboy_client:response(Client2), + {_, Expires} = lists:keyfind(<<"expires">>, 1, RespHeaders), + {_, LastModified} = lists:keyfind(<<"last-modified">>, 1, RespHeaders), + Expires = LastModified = <<"Fri, 21 Sep 2012 22:36:14 GMT">>, + ok. + rest_keepalive(Config) -> Client = ?config(client, Config), URL = build_url("/simple", Config), |