diff options
Diffstat (limited to 'src/couch/test/eunit/couchdb_location_header_tests.erl')
-rw-r--r-- | src/couch/test/eunit/couchdb_location_header_tests.erl | 78 |
1 files changed, 0 insertions, 78 deletions
diff --git a/src/couch/test/eunit/couchdb_location_header_tests.erl b/src/couch/test/eunit/couchdb_location_header_tests.erl deleted file mode 100644 index c6c039eb0..000000000 --- a/src/couch/test/eunit/couchdb_location_header_tests.erl +++ /dev/null @@ -1,78 +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_location_header_tests). - --include_lib("couch/include/couch_eunit.hrl"). --include_lib("couch/include/couch_db.hrl"). - --define(TIMEOUT, 1000). - - -setup() -> - DbName = ?tempdb(), - {ok, Db} = couch_db:create(DbName, [?ADMIN_CTX]), - couch_db:close(Db), - - Addr = config:get("httpd", "bind_address", "127.0.0.1"), - Port = integer_to_list(mochiweb_socket_server:get(couch_httpd, port)), - Host = "http://" ++ Addr ++ ":" ++ Port, - {Host, ?b2l(DbName)}. - -teardown({_, DbName}) -> - ok = couch_server:delete(?l2b(DbName), [?ADMIN_CTX]), - ok. - - -header_test_() -> - { - "CouchDB Location Header Tests", - { - setup, - fun test_util:start_couch/0, fun test_util:stop_couch/1, - { - foreach, - fun setup/0, fun teardown/1, - [ - fun should_work_with_newlines_in_docs/1, - fun should_work_with_newlines_in_attachments/1 - ] - } - } - }. - -should_work_with_newlines_in_docs({Host, DbName}) -> - Url = Host ++ "/" ++ DbName ++ "/docid%0A", - {"COUCHDB-708", - ?_assertEqual( - Url, - begin - {ok, _, Headers, _} = test_request:put(Url, - [{"Content-Type", "application/json"}], "{}"), - proplists:get_value("Location", Headers) - end)}. - -should_work_with_newlines_in_attachments({Host, DbName}) -> - Url = Host ++ "/" ++ DbName, - AttUrl = Url ++ "/docid%0A/readme.txt", - {"COUCHDB-708", - ?_assertEqual( - AttUrl, - begin - Body = "We all live in a yellow submarine!", - Headers0 = [ - {"Content-Length", "34"}, - {"Content-Type", "text/plain"} - ], - {ok, _, Headers, _} = test_request:put(AttUrl, Headers0, Body), - proplists:get_value("Location", Headers) - end)}. |