Changeset 35 for trunk/src/tests_test.erl

Timestamp:

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

Author:

dom

Message:

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

File:

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

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).