Return-Path: X-Original-To: apmail-couchdb-commits-archive@www.apache.org Delivered-To: apmail-couchdb-commits-archive@www.apache.org Received: from mail.apache.org (hermes.apache.org [140.211.11.3]) by minotaur.apache.org (Postfix) with SMTP id 887D4114B4 for ; Mon, 11 Aug 2014 20:22:41 +0000 (UTC) Received: (qmail 90611 invoked by uid 500); 11 Aug 2014 20:22:39 -0000 Delivered-To: apmail-couchdb-commits-archive@couchdb.apache.org Received: (qmail 90417 invoked by uid 500); 11 Aug 2014 20:22:39 -0000 Mailing-List: contact commits-help@couchdb.apache.org; run by ezmlm Precedence: bulk List-Help: List-Unsubscribe: List-Post: List-Id: Reply-To: dev@couchdb.apache.org Delivered-To: mailing list commits@couchdb.apache.org Received: (qmail 89425 invoked by uid 99); 11 Aug 2014 20:22:38 -0000 Received: from tyr.zones.apache.org (HELO tyr.zones.apache.org) (140.211.11.114) by apache.org (qpsmtpd/0.29) with ESMTP; Mon, 11 Aug 2014 20:22:38 +0000 Received: by tyr.zones.apache.org (Postfix, from userid 65534) id 44B5881410F; Mon, 11 Aug 2014 20:22:38 +0000 (UTC) Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit From: chewbranca@apache.org To: commits@couchdb.apache.org Date: Mon, 11 Aug 2014 20:23:00 -0000 Message-Id: <90abdfb26c0e4903b1eec8f9058e6b70@git.apache.org> In-Reply-To: References: X-Mailer: ASF-Git Admin Mailer Subject: [24/50] [abbrv] couch commit: updated refs/heads/1963-eunit-bigcouch to 661443f Port 100-ref-counter.t etap test suite to eunit Project: http://git-wip-us.apache.org/repos/asf/couchdb-couch/repo Commit: http://git-wip-us.apache.org/repos/asf/couchdb-couch/commit/76c1b197 Tree: http://git-wip-us.apache.org/repos/asf/couchdb-couch/tree/76c1b197 Diff: http://git-wip-us.apache.org/repos/asf/couchdb-couch/diff/76c1b197 Branch: refs/heads/1963-eunit-bigcouch Commit: 76c1b197221c79769123a41e0b17f1e69cad140f Parents: 813e33a Author: Alexander Shorin Authored: Mon May 26 20:59:45 2014 +0400 Committer: Russell Branca Committed: Mon Aug 11 13:22:07 2014 -0700 ---------------------------------------------------------------------- test/couchdb/couch_ref_counter_tests.erl | 107 ++++++++++++++++++++++++++ 1 file changed, 107 insertions(+) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/couchdb-couch/blob/76c1b197/test/couchdb/couch_ref_counter_tests.erl ---------------------------------------------------------------------- diff --git a/test/couchdb/couch_ref_counter_tests.erl b/test/couchdb/couch_ref_counter_tests.erl new file mode 100644 index 0000000..b7e97b4 --- /dev/null +++ b/test/couchdb/couch_ref_counter_tests.erl @@ -0,0 +1,107 @@ +% 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(couch_ref_counter_tests). + +-include("couch_eunit.hrl"). +-include_lib("couchdb/couch_db.hrl"). + +-define(TIMEOUT, 1000). + + +setup() -> + {ok, RefCtr} = couch_ref_counter:start([]), + ChildPid = spawn(fun() -> loop() end), + {RefCtr, ChildPid}. + +teardown({_, ChildPid}) -> + erlang:monitor(process, ChildPid), + ChildPid ! close, + wait(). + + +couch_ref_counter_test_() -> + { + "CouchDB reference counter tests", + { + foreach, + fun setup/0, fun teardown/1, + [ + fun should_initialize_with_calling_process_as_referrer/1, + fun should_ignore_unknown_pid/1, + fun should_increment_counter_on_pid_add/1, + fun should_not_increase_counter_on_readding_same_pid/1, + fun should_drop_ref_for_double_added_pid/1, + fun should_decrement_counter_on_pid_drop/1, + fun should_add_after_drop/1, + fun should_decrement_counter_on_process_exit/1 + + ] + } + }. + + +should_initialize_with_calling_process_as_referrer({RefCtr, _}) -> + ?_assertEqual(1, couch_ref_counter:count(RefCtr)). + +should_ignore_unknown_pid({RefCtr, ChildPid}) -> + ?_assertEqual(ok, couch_ref_counter:drop(RefCtr, ChildPid)). + +should_increment_counter_on_pid_add({RefCtr, ChildPid}) -> + couch_ref_counter:add(RefCtr, ChildPid), + ?_assertEqual(2, couch_ref_counter:count(RefCtr)). + +should_not_increase_counter_on_readding_same_pid({RefCtr, ChildPid}) -> + couch_ref_counter:add(RefCtr, ChildPid), + couch_ref_counter:add(RefCtr, ChildPid), + ?_assertEqual(2, couch_ref_counter:count(RefCtr)). + +should_drop_ref_for_double_added_pid({RefCtr, ChildPid}) -> + couch_ref_counter:add(RefCtr, ChildPid), + couch_ref_counter:add(RefCtr, ChildPid), + couch_ref_counter:drop(RefCtr, ChildPid), + ?_assertEqual(2, couch_ref_counter:count(RefCtr)). + +should_decrement_counter_on_pid_drop({RefCtr, ChildPid}) -> + couch_ref_counter:add(RefCtr, ChildPid), + couch_ref_counter:drop(RefCtr, ChildPid), + ?_assertEqual(1, couch_ref_counter:count(RefCtr)). + +should_add_after_drop({RefCtr, ChildPid}) -> + couch_ref_counter:add(RefCtr, ChildPid), + couch_ref_counter:drop(RefCtr, ChildPid), + couch_ref_counter:add(RefCtr, ChildPid), + ?_assertEqual(2, couch_ref_counter:count(RefCtr)). + +should_decrement_counter_on_process_exit({RefCtr, ChildPid}) -> + ?_assertEqual(1, + begin + couch_ref_counter:add(RefCtr, ChildPid), + erlang:monitor(process, ChildPid), + ChildPid ! close, + wait(), + couch_ref_counter:count(RefCtr) + end). + + +loop() -> + receive + close -> ok + end. + +wait() -> + receive + {'DOWN', _, _, _, _} -> + ok + after ?TIMEOUT -> + throw(timeout_error) + end.