diff options
Diffstat (limited to 'src/couch/test/eunit/couchdb_mrview_cors_tests.erl')
-rw-r--r-- | src/couch/test/eunit/couchdb_mrview_cors_tests.erl | 142 |
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. |