Changeset 72 for trunk

Timestamp:

07/15/09 09:35:46 (3 years ago)

Author:

dom

Message:

Refactoring.

File:

• trunk/src/tests.erl (modified) (2 diffs)

trunk/src/tests.erl

@@ -1 @@
-%%% Copyright (c) 2008 Dominic Williams, Nicolas Charpentier
+%%% Copyright (c) Dominic Williams, Nicolas Charpentier
 %%% All rights reserved.
 %%% See file COPYING.
 
 -module (tests).
--export ([filter_by_attribute/1, receive_all/0]).
+-export ([filter_by_attribute/1]).
 
 filter_by_attribute (Binary) ->
@@ -26 +26 @@
 testable_export ({F, 0}, Fs) -> [F | Fs];
 testable_export (_, Fs) -> Fs.
-
-receive_all () ->
-    receive_all ([]).
-
-receive_all (Ms) ->
-    receive M -> receive_all ([M | Ms])
-    after 10000 -> lists: reverse (Ms)
-    end.