diff options
author | Alexander Shorin <kxepal@apache.org> | 2014-06-11 18:14:22 +0400 |
---|---|---|
committer | Alexander Shorin <kxepal@apache.org> | 2015-12-03 00:52:05 +0300 |
commit | 93266ba0030ccfa9b64c6fe17b23da8066fa9510 (patch) | |
tree | fc64322af797ada5b76261c2e66e5576ab1d522e | |
parent | a3ffe05290d4ee8e46ddb6c6ac18729bc9aeae2e (diff) | |
download | couchdb-93266ba0030ccfa9b64c6fe17b23da8066fa9510.tar.gz |
Port couch_mrview/02-map-views.t etap test suite to eunit
-rw-r--r-- | src/couch_mrview/Makefile.am | 2 | ||||
-rw-r--r-- | src/couch_mrview/test/couch_mrview_map_views_tests.erl (renamed from src/couch_mrview/test/02-map-views.t) | 119 |
2 files changed, 63 insertions, 58 deletions
diff --git a/src/couch_mrview/Makefile.am b/src/couch_mrview/Makefile.am index d12b745d2..dfe412b06 100644 --- a/src/couch_mrview/Makefile.am +++ b/src/couch_mrview/Makefile.am @@ -33,8 +33,8 @@ source_files = \ src/couch_mrview_util.erl test_files = \ + test/couch_mrview_map_views_tests.erl \ test/couch_mrview_modules_load_tests.erl \ - test/02-map-views.t \ test/03-red-views.t \ test/04-index-info.t \ test/05-collation.t \ diff --git a/src/couch_mrview/test/02-map-views.t b/src/couch_mrview/test/couch_mrview_map_views_tests.erl index 7e1ca0c3d..b2f857588 100644 --- a/src/couch_mrview/test/02-map-views.t +++ b/src/couch_mrview/test/couch_mrview_map_views_tests.erl @@ -1,6 +1,3 @@ -#!/usr/bin/env escript -%% -*- erlang -*- - % 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 @@ -13,36 +10,59 @@ % License for the specific language governing permissions and limitations under % the License. -main(_) -> - test_util:init_code_path(), - - etap:plan(6), - case (catch test()) of - ok -> - etap:end_tests(); - Other -> - etap:diag(io_lib:format("Test died abnormally: ~p", [Other])), - etap:bail(Other) - end, - timer:sleep(300), - ok. - -test() -> - couch_server_sup:start_link(test_util:config_files()), - - {ok, Db} = couch_mrview_test_util:init_db(<<"foo">>, map), - - test_basic(Db), - test_range(Db), - test_rev_range(Db), - test_limit_and_skip(Db), - test_include_docs(Db), - test_empty_view(Db), - - ok. - - -test_basic(Db) -> +-module(couch_mrview_map_views_tests). + +-include("couch_eunit.hrl"). +-include_lib("couchdb/couch_db.hrl"). + +-define(TIMEOUT, 1000). +-define(ADMIN_USER, {user_ctx, #user_ctx{roles=[<<"_admin">>]}}). + + +start() -> + {ok, Pid} = couch_server_sup:start_link(?CONFIG_CHAIN), + Pid. + +stop(Pid) -> + erlang:monitor(process, Pid), + couch_server_sup:stop(), + receive + {'DOWN', _, _, Pid, _} -> + ok + after ?TIMEOUT -> + throw({timeout, server_stop}) + end. + +setup() -> + {ok, Db} = couch_mrview_test_util:init_db(?tempdb(), map), + Db. + +teardown(Db) -> + ok = couch_db:close(Db). + + +map_views_test_() -> + { + "Map views", + { + setup, + fun start/0, fun stop/1, + { + foreach, + fun setup/0, fun teardown/1, + [ + fun should_map/1, + fun should_map_with_range/1, + fun should_map_with_limit_and_skip/1, + fun should_map_with_include_docs/1, + fun should_map_empty_views/1 + ] + } + } + }. + + +should_map(Db) -> Result = run_query(Db, []), Expect = {ok, [ {meta, [{total, 10}, {offset, 0}]}, @@ -57,21 +77,9 @@ test_basic(Db) -> {row, [{id, <<"9">>}, {key, 9}, {value, 9}]}, {row, [{id, <<"10">>}, {key, 10}, {value, 10}]} ]}, - etap:is(Result, Expect, "Simple view query worked."). - - -test_range(Db) -> - Result = run_query(Db, [{start_key, 3}, {end_key, 5}]), - Expect = {ok, [ - {meta, [{total, 10}, {offset, 2}]}, - {row, [{id, <<"3">>}, {key, 3}, {value, 3}]}, - {row, [{id, <<"4">>}, {key, 4}, {value, 4}]}, - {row, [{id, <<"5">>}, {key, 5}, {value, 5}]} - ]}, - etap:is(Result, Expect, "Query with range works."). + ?_assertEqual(Expect, Result). - -test_rev_range(Db) -> +should_map_with_range(Db) -> Result = run_query(Db, [ {direction, rev}, {start_key, 5}, {end_key, 3}, @@ -83,10 +91,9 @@ test_rev_range(Db) -> {row, [{id, <<"4">>}, {key, 4}, {value, 4}]}, {row, [{id, <<"3">>}, {key, 3}, {value, 3}]} ]}, - etap:is(Result, Expect, "Query with reversed range works."). - + ?_assertEqual(Expect, Result). -test_limit_and_skip(Db) -> +should_map_with_limit_and_skip(Db) -> Result = run_query(Db, [ {start_key, 2}, {limit, 3}, @@ -98,10 +105,9 @@ test_limit_and_skip(Db) -> {row, [{id, <<"6">>}, {key, 6}, {value, 6}]}, {row, [{id, <<"7">>}, {key, 7}, {value, 7}]} ]}, - etap:is(Result, Expect, "Query with limit and skip works."). + ?_assertEqual(Expect, Result). - -test_include_docs(Db) -> +should_map_with_include_docs(Db) -> Result = run_query(Db, [ {start_key, 8}, {end_key, 8}, @@ -116,15 +122,14 @@ test_include_docs(Db) -> {meta, [{total, 10}, {offset, 7}]}, {row, [{id, <<"8">>}, {key, 8}, {value, 8}, {doc, Doc}]} ]}, - etap:is(Result, Expect, "Query with include docs works."). - + ?_assertEqual(Expect, Result). -test_empty_view(Db) -> +should_map_empty_views(Db) -> Result = couch_mrview:query_view(Db, <<"_design/bar">>, <<"bing">>), Expect = {ok, [ {meta, [{total, 0}, {offset, 0}]} ]}, - etap:is(Result, Expect, "Empty views are correct."). + ?_assertEqual(Expect, Result). run_query(Db, Opts) -> |