Changeset 26 for trunk

Timestamp:

03/03/08 17:01:29 (4 years ago)

Author:

dom

Message:

Started new test server (tester).

Location:

trunk

Files:

• doc/conventions.txt (added)
• src/tester.erl (added)
• src/tester_test.erl (added)
• src/tests.erl (modified) (3 diffs)

trunk/src/tests.erl

@@ -4 +4 @@
 
 -module (tests).
--export ([filter_by_attribute/1]).
+-export ([filter_by_attribute/1, receive_all/0]).
 
 filter_by_attribute (Binary) ->
@@ -11 +11 @@
     Declarations = lists: flatten ([T || {test, T} <- Attributes]),
     filter_by_attribute (Module, Binary, Declarations, []).
+
+receive_all () ->
+    receive_all ([]).
 
 filter_by_attribute (Module, Binary, [exports | Tail], Tests) ->
@@ -32 +35 @@
 exports_to_funs (_, [], Funs) ->
     Funs.
+
+receive_all (Ms) ->
+    receive M -> receive_all ([M | Ms])
+    after 10000 -> lists: reverse (Ms)
+    end.
+