Changeset 20 for trunk

Timestamp:

02/21/08 18:54:15 (4 years ago)

Author:

dom

Message:

Refactoring: extract function

File:

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

trunk/src/tests_test.erl

@@ -19 +19 @@
 filtering_tests_returns_list_of_funs_from_unloaded_binary () ->
     File_name = "../fix/eg_test.erl",
-    Binary = modules: to_binary (File_name),
-    false = code: is_loaded (eg_test),
-    [Ok, Nok] = tests: filter_by_attribute (Binary),
-    try
-        {module, eg_test} = code: load_binary (eg_test, File_name, Binary),
-        ok = Ok (),
-        {'EXIT', {{badmatch, nok}, _}} = (catch Nok ())
-    after
-        code: purge (eg_test),
-        code: delete (eg_test)
-    end.
+    Test = fun ([Ok, Nok]) ->
+                   ok = Ok (),
+                   {'EXIT', {{badmatch, nok}, _}} = (catch Nok ())
+           end,
+    filtering (File_name, eg_test, Test).
 
 filtering_fixtured_tests_returns_list_of_fixture_fun_tuples () ->
     File_name = "../fix/eg_test_with_fixture.erl",
+    Test = fun ([{Module, Fixture, Tests}]) ->
+                   [ok] = Module: Fixture (Tests)
+           end,
+    filtering (File_name, eg_test_with_fixture, Test).
+    
+filtering (File_name, Module, Test) ->
     Binary = modules: to_binary (File_name),
-    [{Module, Fixture, Tests}] = tests: filter_by_attribute (Binary),
+    false = code: is_loaded (Module),
+    Tests = tests: filter_by_attribute (Binary),
     try
-        {module, eg_test_with_fixture} =
-          code: load_binary (eg_test_with_fixture, File_name, Binary),
-        [ok] = Module:Fixture (Tests)
+        {module, Module} = code: load_binary (Module, File_name, Binary),
+        Test (Tests)
     after
-        code: purge (eg_test_with_fixture),
-        code: delete (eg_test_with_fixture)
+        code: purge (Module),
+        code: delete (Module)
     end.
-