summaryrefslogtreecommitdiff
path: root/src/couch/test/eunit/couchdb_cookie_domain_tests.erl
diff options
context:
space:
mode:
Diffstat (limited to 'src/couch/test/eunit/couchdb_cookie_domain_tests.erl')
-rwxr-xr-xsrc/couch/test/eunit/couchdb_cookie_domain_tests.erl88
1 files changed, 0 insertions, 88 deletions
diff --git a/src/couch/test/eunit/couchdb_cookie_domain_tests.erl b/src/couch/test/eunit/couchdb_cookie_domain_tests.erl
deleted file mode 100755
index 17c41dafe..000000000
--- a/src/couch/test/eunit/couchdb_cookie_domain_tests.erl
+++ /dev/null
@@ -1,88 +0,0 @@
-% 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(couchdb_cookie_domain_tests).
-
--include_lib("couch/include/couch_eunit.hrl").
--include_lib("couch/include/couch_db.hrl").
-
--define(USER, "cookie_domain_test_admin").
--define(PASS, "pass").
-
-setup() ->
- Ctx = test_util:start_couch([chttpd]),
- Hashed = couch_passwords:hash_admin_password(?PASS),
- ok = config:set("admins", ?USER, ?b2l(Hashed), _Persist = false),
- Addr = config:get("httpd", "bind_address", "127.0.0.1"),
- Port = mochiweb_socket_server:get(chttpd, port),
- Url = ?l2b(io_lib:format("http://~s:~b/_session", [Addr, Port])),
- ContentType = [{"Content-Type", "application/json"}],
- Payload = jiffy:encode({[{name, ?l2b(?USER)}, {password, ?l2b(?PASS)}]}),
- {ok, ?b2l(Url), ContentType, ?b2l(Payload), Ctx}.
-
-teardown({ok, _, _, _, Ctx}) ->
- ok = config:delete("admins", ?USER, _Persist = false),
- test_util:stop_couch(Ctx).
-
-cookie_test_() ->
- {
- "Cookie domain tests",
- {
- setup,
- fun setup/0,
- fun teardown/1,
- fun({ok, Url, ContentType, Payload, _}) ->
- [
- should_set_cookie_domain(Url, ContentType, Payload),
- should_not_set_cookie_domain(Url, ContentType, Payload),
- should_delete_cookie_domain(Url, ContentType, Payload)
- ]
- end
- }
- }.
-
-should_set_cookie_domain(Url, ContentType, Payload) ->
- ?_test(begin
- ok = config:set(
- "couch_httpd_auth",
- "cookie_domain",
- "example.com",
- false
- ),
- {ok, Code, Headers, _} = test_request:post(Url, ContentType, Payload),
- ?assertEqual(200, Code),
- Cookie = proplists:get_value("Set-Cookie", Headers),
- ?assert(string:str(Cookie, "; Domain=example.com") > 0)
- end).
-
-should_not_set_cookie_domain(Url, ContentType, Payload) ->
- ?_test(begin
- ok = config:set("couch_httpd_auth", "cookie_domain", "", false),
- {ok, Code, Headers, _} = test_request:post(Url, ContentType, Payload),
- ?assertEqual(200, Code),
- Cookie = proplists:get_value("Set-Cookie", Headers),
- ?assertEqual(0, string:str(Cookie, "; Domain="))
- end).
-
-should_delete_cookie_domain(Url, ContentType, Payload) ->
- ?_test(begin
- ok = config:set(
- "couch_httpd_auth",
- "cookie_domain",
- "example.com",
- false
- ),
- {ok, Code, Headers, _} = test_request:delete(Url, ContentType, Payload),
- ?assertEqual(200, Code),
- Cookie = proplists:get_value("Set-Cookie", Headers),
- ?assert(string:str(Cookie, "; Domain=example.com") > 0)
- end).