summaryrefslogtreecommitdiff
path: root/src/couch/test/eunit/couchdb_mrview_cors_tests.erl
diff options
context:
space:
mode:
Diffstat (limited to 'src/couch/test/eunit/couchdb_mrview_cors_tests.erl')
-rw-r--r--src/couch/test/eunit/couchdb_mrview_cors_tests.erl142
1 files changed, 0 insertions, 142 deletions
diff --git a/src/couch/test/eunit/couchdb_mrview_cors_tests.erl b/src/couch/test/eunit/couchdb_mrview_cors_tests.erl
deleted file mode 100644
index 9822542f3..000000000
--- a/src/couch/test/eunit/couchdb_mrview_cors_tests.erl
+++ /dev/null
@@ -1,142 +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_mrview_cors_tests).
-
--include_lib("couch/include/couch_eunit.hrl").
--include_lib("couch/include/couch_db.hrl").
-
--define(DDOC,
- {[
- {<<"_id">>, <<"_design/foo">>},
- {<<"shows">>,
- {[
- {<<"bar">>, <<"function(doc, req) {return '<h1>wosh</h1>';}">>}
- ]}}
- ]}
-).
-
--define(USER, "mrview_cors_test_admin").
--define(PASS, "pass").
--define(AUTH, {basic_auth, {?USER, ?PASS}}).
-
-start() ->
- Ctx = test_util:start_couch([chttpd]),
- Hashed = couch_passwords:hash_admin_password(?PASS),
- ok = config:set("admins", ?USER, ?b2l(Hashed), _Persist = false),
- ok = config:set("chttpd", "enable_cors", "true", false),
- ok = config:set("vhosts", "example.com", "/", false),
- Ctx.
-
-setup(PortType) ->
- DbName = ?tempdb(),
- ok = create_db(PortType, DbName),
-
- config:set("cors", "credentials", "false", false),
- config:set("cors", "origins", "http://example.com", false),
-
- Host = host_url(PortType),
- upload_ddoc(Host, ?b2l(DbName)),
- {Host, ?b2l(DbName)}.
-
-teardown(Ctx) ->
- ok = config:delete("admins", ?USER, _Persist = false),
- test_util:stop_couch(Ctx).
-
-teardown(PortType, {_Host, DbName}) ->
- delete_db(PortType, ?l2b(DbName)),
- ok.
-
-cors_test_() ->
- {
- "CORS for mrview",
- {
- setup,
- fun start/0,
- fun teardown/1,
- [show_tests()]
- }
- }.
-
-show_tests() ->
- {
- "Check CORS for show",
- [
- make_test_case(clustered, [fun should_make_shows_request/2]),
- make_test_case(backdoor, [fun should_make_shows_request/2])
- ]
- }.
-
-make_test_case(Mod, Funs) ->
- {
- lists:flatten(io_lib:format("~s", [Mod])),
- {foreachx, fun setup/1, fun teardown/2, [{Mod, Fun} || Fun <- Funs]}
- }.
-
-should_make_shows_request(_, {Host, DbName}) ->
- ?_test(begin
- ReqUrl = Host ++ "/" ++ DbName ++ "/_design/foo/_show/bar",
- Headers = [
- {"Origin", "http://example.com"},
- {"Access-Control-Request-Method", "GET"},
- ?AUTH
- ],
- {ok, _, Resp, Body} = test_request:get(ReqUrl, Headers),
- Origin = proplists:get_value("Access-Control-Allow-Origin", Resp),
- ?assertEqual("http://example.com", Origin),
- ?assertEqual(<<"<h1>wosh</h1>">>, Body)
- end).
-
-create_db(backdoor, DbName) ->
- {ok, Db} = couch_db:create(DbName, [?ADMIN_CTX]),
- couch_db:close(Db);
-create_db(clustered, DbName) ->
- {ok, Status, _, _} = test_request:put(db_url(DbName), [?AUTH], ""),
- assert_success(create_db, Status),
- ok.
-
-delete_db(backdoor, DbName) ->
- couch_server:delete(DbName, [?ADMIN_CTX]);
-delete_db(clustered, DbName) ->
- {ok, Status, _, _} = test_request:delete(db_url(DbName), [?AUTH]),
- assert_success(delete_db, Status),
- ok.
-
-assert_success(create_db, Status) ->
- true = lists:member(Status, [201, 202]);
-assert_success(delete_db, Status) ->
- true = lists:member(Status, [200, 202]).
-
-host_url(PortType) ->
- "http://" ++ bind_address(PortType) ++ ":" ++ port(PortType).
-
-bind_address(PortType) ->
- config:get(section(PortType), "bind_address", "127.0.0.1").
-
-section(backdoor) -> "http";
-section(clustered) -> "chttpd".
-
-db_url(DbName) when is_binary(DbName) ->
- db_url(binary_to_list(DbName));
-db_url(DbName) when is_list(DbName) ->
- host_url(clustered) ++ "/" ++ DbName.
-
-port(clustered) ->
- integer_to_list(mochiweb_socket_server:get(chttpd, port));
-port(backdoor) ->
- integer_to_list(mochiweb_socket_server:get(couch_httpd, port)).
-
-upload_ddoc(Host, DbName) ->
- Url = Host ++ "/" ++ DbName ++ "/_design/foo",
- Body = couch_util:json_encode(?DDOC),
- {ok, 201, _Resp, _Body} = test_request:put(Url, [?AUTH], Body),
- ok.