Changeset 35

Timestamp:

08/22/08 19:01:40 (3 years ago)

Author:

dom

Message:

Add support for -test attribute with explicit list (not exports).

Location:

trunk/src

Files:

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

trunk/src/tests.erl

@@ -18 +18 @@
     Tests = lists: foldl (fun testable_export/2, [], Exports),
     filter (Binary, Tail, [Tests | Acc]);
+filter (Binary, [Test | Tail], Acc) ->
+    filter (Binary, Tail, [Test | Acc]);
 filter (_, [], Acc) ->
     lists: flatten (Acc).

trunk/src/tests_test.erl

@@ -8 +8 @@
 
 filter_by_attribute () ->
-    filtering_non_tests_returns_empty_list(),
-    filtering_tests_returns_list_of_tests_from_unloaded_binary (),
+    non_tests_returns_empty_list(),
+    test_exports_returns_list_of_tests_from_unloaded_binary (),
+    test_non_exports_also (),
     ok.
 
-filtering_non_tests_returns_empty_list () ->
+non_tests_returns_empty_list () ->
     Binary = modules: to_binary ("../fix/eg_code.erl"),
     {eg_code, []} = tests: filter_by_attribute (Binary).
 
-filtering_tests_returns_list_of_tests_from_unloaded_binary () ->
+test_exports_returns_list_of_tests_from_unloaded_binary () ->
     File = "../fix/eg_test.erl",
     Binary = modules: to_binary (File),
@@ -22 +23 @@
     {eg_test, [ok, nok]} = tests: filter_by_attribute (Binary),
     false = code: is_loaded (eg_test).
+
+test_non_exports_also () ->
+    File = "../fix/eg_test_not_exports.erl",
+    Binary = modules: to_binary (File),
+    false = code: is_loaded (eg_test_not_exports),
+    {eg_test_not_exports, [ok]} = tests: filter_by_attribute (Binary),
+    false = code: is_loaded (eg_test_not_exports).