1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
% Licensed under the Apache License, Version 2.0 (the "License"); you may not
% use this file except in compliance with the License. You may obtain a copy of
% the License at
%
% http://www.apache.org/licenses/LICENSE-2.0
%
% Unless required by applicable law or agreed to in writing, software
% distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
% WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the
% License for the specific language governing permissions and limitations under
% the License.
-module(chttpd_session_tests).
-include_lib("couch/include/couch_eunit.hrl").
-include("chttpd_test.hrl").
-define(USER, "chttpd_test_admin").
-define(PASS, "pass").
setup() ->
ok = config:delete("chttpd_auth", "authentication_db", _Persist=false),
Hashed = couch_passwords:hash_admin_password(?PASS),
ok = config:set("admins", ?USER, binary_to_list(Hashed), _Persist=false),
root_url() ++ "/_session".
cleanup(_) ->
ok = config:delete("chttpd_auth", "authentication_db", _Persist=false),
ok = config:delete("admins", ?USER, _Persist=false).
session_test_() ->
{
"Session tests",
{
setup,
fun() -> test_util:start_couch([fabric, chttpd]) end,
fun test_util:stop_couch/1,
{
foreach,
fun setup/0,
fun cleanup/1,
[
?TDEF_FE(session_authentication_db_absent),
?TDEF_FE(session_authentication_db_present),
?TDEF_FE(session_authentication_gzip_request)
]
}
}
}.
session_authentication_db_absent(Url) ->
ok = config:delete("chttpd_auth", "authentication_db", _Persist=false),
?assertThrow({not_found, _}, session_authentication_db(Url)).
session_authentication_db_present(Url) ->
Name = "_users",
ok = config:set("chttpd_auth", "authentication_db", Name, false),
?assertEqual(list_to_binary(Name), session_authentication_db(Url)).
session_authentication_gzip_request(Url) ->
{ok, 200, _, Body} = test_request:request(
post,
Url,
[{"Content-Type", "application/json"}, {"Content-Encoding", "gzip"}],
zlib:gzip(jiffy:encode({[{username, list_to_binary(?USER)}, {password, list_to_binary(?PASS)}]}))),
{BodyJson} = jiffy:decode(Body),
?assert(lists:member({<<"name">>, list_to_binary(?USER)}, BodyJson)).
session_authentication_db(Url) ->
{ok, 200, _, Body} = test_request:get(Url, [{basic_auth, {?USER, ?PASS}}]),
couch_util:get_nested_json_value(
jiffy:decode(Body), [<<"info">>, <<"authentication_db">>]).
root_url() ->
Addr = config:get("chttpd", "bind_address", "127.0.0.1"),
Port = mochiweb_socket_server:get(chttpd, port),
lists:concat(["http://", Addr, ":", Port]).
|