Changeset 34 for trunk/src/tests_test.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_test.erl (modified) (1 diff)

trunk/src/tests_test.erl

@@ -9 +9 @@
 filter_by_attribute () ->
     filtering_non_tests_returns_empty_list(),
-    filtering_tests_returns_list_of_MFA_from_unloaded_binary (),
-    filtering_fixtured_tests_returns_list_of_fixture_fun_tuples (),
-    filtering_understands_mixed_export_and_fixtured_tests (),
+    filtering_tests_returns_list_of_tests_from_unloaded_binary (),
     ok.
 
 filtering_non_tests_returns_empty_list () ->
-    Binary = modules: to_binary ("../fix/eg_code.erl"), 
+    Binary = modules: to_binary ("../fix/eg_code.erl"),
     {eg_code, []} = tests: filter_by_attribute (Binary).
 
-filtering_tests_returns_list_of_MFA_from_unloaded_binary () ->
-    File_name = "../fix/eg_test.erl",
-    Test = fun ([Ok, Nok]) ->
-                   {Ok_m, Ok_f, Ok_a} = Ok,
-                   ok = apply (Ok_m, Ok_f, Ok_a),
-                   {Nok_m, Nok_f, Nok_a} = Nok,
-                   Error = (catch apply (Nok_m, Nok_f, Nok_a)),
-                   {'EXIT', {{badmatch, nok}, _}} = Error
-           end,
-    filtering (File_name, eg_test, Test).
-
-filtering_fixtured_tests_returns_list_of_fixture_fun_tuples () ->
-    File_name = "../fix/eg_test_fix.erl",
-    Test = fun ([{Module, Fixture, [Tests]}]) ->
-                   [ok] = Module: Fixture (Tests)
-           end,
-    filtering (File_name, eg_test_fix, Test).
-    
-filtering_understands_mixed_export_and_fixtured_tests () ->
-    File_name = "../fix/eg_test_fix_nofix.erl",
-    Test = fun ([{Module, Fixture, [With]}, Without]) ->
-                   {Wo_m, Wo_f, Wo_a} = Without,
-                   {'EXIT', {Reason, _}} = (catch apply (Wo_m, Wo_f, Wo_a)),
-                   {badmatch, without_fixture_ok} = Reason,
-                   [ok] = Module: Fixture (With)
-           end,
-    filtering (File_name, eg_test_fix_nofix, Test).
-
-filtering (File_name, Module, Test) ->
-    Binary = modules: to_binary (File_name),
-    false = code: is_loaded (Module),
-    {Module, Tests} = tests: filter_by_attribute (Binary),
-    try
-        {module, Module} = code: load_binary (Module, File_name, Binary),
-        Test (Tests)
-    after
-        code: purge (Module),
-        code: delete (Module)
-    end.
+filtering_tests_returns_list_of_tests_from_unloaded_binary () ->
+    File = "../fix/eg_test.erl",
+    Binary = modules: to_binary (File),
+    false = code: is_loaded (eg_test),
+    {eg_test, [ok, nok]} = tests: filter_by_attribute (Binary),
+    false = code: is_loaded (eg_test).