Changeset 34 for trunk/src/tests.erl

Timestamp:

08/22/08 18:46:07 (4 years ago)

Author:

dom

Message:

Removed everything related to fixtures while the concept matures a bit.

File:

• trunk/src/tests.erl (modified) (1 diff)

trunk/src/tests.erl

@@ -10 +10 @@
     {Module, [{attributes, Attributes}]} = Chunks,
     Declarations = lists: flatten ([T || {test, T} <- Attributes]),
-    filter_by_attribute (Module, Binary, Declarations, []).
+    Tests = filter (Binary, Declarations, []),
+    {Module, Tests}.
+
+filter (Binary, [exports | Tail], Acc) ->
+    {ok, Chunks} = beam_lib: chunks (Binary, [exports]),
+    {_, [{exports, Exports}]} = Chunks,
+    Tests = lists: foldl (fun testable_export/2, [], Exports),
+    filter (Binary, Tail, [Tests | Acc]);
+filter (_, [], Acc) ->
+    lists: flatten (Acc).
+
+testable_export ({module_info, _}, Fs) -> Fs;
+testable_export ({F, 0}, Fs) -> [F | Fs];
+testable_export (_, Fs) -> Fs.
 
 receive_all () ->
     receive_all ([]).
-
-filter_by_attribute (Module, Binary, [exports | Tail], Tests) ->
-    {ok, Chunks} = beam_lib: chunks (Binary, [exports]),
-    {Module, [{exports, Exports}]} = Chunks,
-    Funs = exports_to_funs (Module, Exports, []),
-    filter_by_attribute (Module, Binary, Tail, [Funs | Tests]);
-filter_by_attribute (Module, Binary, [{M, F, Ts} | Tail], Tests) ->
-    Funs = [{Module, T} || T <- Ts],
-    filter_by_attribute (Module, Binary, Tail, [{M, F, [Funs]} | Tests]);
-filter_by_attribute (Module, _, [], Tests) ->
-    {Module, lists: flatten (Tests)}.
-
-exports_to_funs (M, [{module_info, _} | Exports], Funs) ->
-    exports_to_funs (M, Exports, Funs);
-exports_to_funs (M, [{F, 0} | Exports], Funs) ->
-    exports_to_funs (M, Exports, [{M, F, []} | Funs]);
-exports_to_funs (M, [{_, _} | Exports], Funs) ->
-    exports_to_funs (M, Exports, Funs);
-exports_to_funs (_, [], Funs) ->
-    Funs.
 
 receive_all (Ms) ->