Merge branch 'master' of github.com:esl/gproc

doc/gproc_dist.md

@@ -13,7 +13,7 @@ Extended process registry.
 
 
 
-__Behaviours:__ [`gen_leader`](/Users/uwiger/ETC/git/gproc/deps/gen_leader/doc/gen_leader.md).
+__Behaviours:__ [`gen_leader`](/Users/uwiger/tmp/gproc/deps/gen_leader/doc/gen_leader.md).
 
 __Authors:__ Ulf Wiger ([`ulf.wiger@erlang-solutions.com`](mailto:ulf.wiger@erlang-solutions.com)).
 

src/gproc.app.src

@@ -5,7 +5,7 @@
 {application, gproc,
  [
   {description, "GPROC"},
-  {vsn, "0.2.8"},
+  {vsn, "0.2.9"},
   {id, "GPROC"},
   {registered, [ ] },
   %% NOTE: do not list applications which are load-only!

test/gproc_dist_tests.erl

@@ -3,18 +3,18 @@
 %% compliance with the License. You should have received a copy of the
 %% Erlang Public License along with this software. If not, it can be
 %% retrieved via the world wide web at http://www.erlang.org/.
-%% 
+%%
 %% Software distributed under the License is distributed on an "AS IS"
 %% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
 %% the License for the specific language governing rights and limitations
 %% under the License.
-%% 
+%%
 %% The Initial Developer of the Original Code is Ericsson Utvecklings AB.
 %% Portions created by Ericsson are Copyright 1999, Ericsson Utvecklings
 %% AB. All Rights Reserved.''
 %%
 %% @author Ulf Wiger <ulf.wiger@erlang-solutions.com>
-%% 
+%%
 -module(gproc_dist_tests).
 
 -ifdef(TEST).

test/gproc_tests.erl

@@ -95,6 +95,8 @@ reg_test_() ->
       , ?_test(t_is_clean())
       , {spawn, ?_test(t_select())}
       , ?_test(t_is_clean())
+      , {spawn, ?_test(t_select_count())}
+      , ?_test(t_is_clean())
       , {spawn, ?_test(t_qlc())}
       , ?_test(t_is_clean())
       , {spawn, ?_test(t_get_env())}
@@ -292,6 +294,26 @@ t_select() ->
 	    {all,all},
 	    [{{'_',self(),'_'},[],['$_']}])).
 
+t_select_count() ->
+    ?assertEqual(true, gproc:reg({n, l, {n,1}}, x)),
+    ?assertEqual(true, gproc:reg({n, l, {n,2}}, y)),
+    ?assertEqual(true, gproc:reg({p, l, {p,1}}, x)),
+    ?assertEqual(true, gproc:reg({p, l, {p,2}}, y)),
+    ?assertEqual(true, gproc:reg({c, l, {c,1}}, 1)),
+    ?assertEqual(true, gproc:reg({a, l, {c,1}}, undefined)),
+    %% local names
+    ?assertEqual(2, gproc:select_count(
+		      {local,names}, [{{{n,l,'_'},'_','_'},[],[true]}])),
+    %% mactch local names on value
+    ?assertEqual(1, gproc:select_count(
+		      {local,names}, [{{{n,l,'_'},'_',x},[],[true]}])),
+    %% match all on value
+    ?assertEqual(2, gproc:select_count(
+		      {all,all}, [{{{'_',l,'_'},'_',x},[],[true]}])),
+    %% match all on pid
+    ?assertEqual(6, gproc:select_count(
+		      {all,all}, [{{'_',self(),'_'},[],[true]}])).
+
 t_qlc() ->
     ?assertEqual(true, gproc:reg({n, l, {n,1}}, x)),
     ?assertEqual(true, gproc:reg({n, l, {n,2}}, y)),