Changeset 25 for trunk

Timestamp:

03/03/08 09:32:43 (4 years ago)

Author:

dom

Message:

Modify API: test filtering also returns module name

Location:

trunk/src

Files:

• tests.erl (modified) (1 diff)
• tests_test.erl (modified) (2 diffs)

trunk/src/tests.erl

@@ -20 +20 @@
     Funs = [fun (Fix) -> Module:T (Fix) end || T <- Ts],
     filter_by_attribute (Module, Binary, Tail, [{M, F, Funs} | Tests]);
-filter_by_attribute (_, _, [], Tests) ->
-    lists: flatten (Tests).
+filter_by_attribute (Module, _, [], Tests) ->
+    {Module, lists: flatten (Tests)}.
 
 exports_to_funs (M, [{module_info, _} | Exports], Funs) ->

trunk/src/tests_test.erl

@@ -16 +16 @@
 filtering_non_tests_returns_empty_list () ->
     Binary = modules: to_binary ("../fix/eg_code.erl"), 
-    [] = tests: filter_by_attribute (Binary).
+    {eg_code, []} = tests: filter_by_attribute (Binary).
 
 filtering_tests_returns_list_of_funs_from_unloaded_binary () ->
@@ -45 +45 @@
     Binary = modules: to_binary (File_name),
     false = code: is_loaded (Module),
-    Tests = tests: filter_by_attribute (Binary),
+    {Module, Tests} = tests: filter_by_attribute (Binary),
     try
         {module, Module} = code: load_binary (Module, File_name, Binary),