rebar_eunit: adapt to R15B02 changes

yrashk · Aug 31, 2012 · 8aadd65 · 8aadd65
1 parent 3cc8fb2
commit 8aadd65
Showing 1 changed file with 13 additions and 6 deletions.
diff --git a/src/rebar_eunit.erl b/src/rebar_eunit.erl
@@ -313,6 +313,13 @@ get_beam_test_exports(ModuleStr) ->
     end.
 
 make_test_wrappers(RawTests) ->
+    %% eunit_test:function_wrapper/2 was renamed to mf_wrapper/2 in R15B02
+    {module, eunit_test} = code:ensure_loaded(eunit_test),
+    WrapperFun = case erlang:function_exported(eunit_test, mf_wrapper, 2) of
+                     true  -> fun eunit_test:mf_wrapper/2;
+                     false -> fun eunit_test:function_wrapper/2
+                 end,
+
     ?CONSOLE("    Running test function(s):~n", []),
     F = fun({M, F2}, Acc) ->
                 ?CONSOLE("      ~p:~p/0~n", [M, F2]),
@@ -321,20 +328,20 @@ make_test_wrappers(RawTests) ->
                     case re:run(FNameStr, "_test_") of
                         nomatch ->
                             %% Normal test
-                            eunit_test(M, F2);
+                            eunit_test(WrapperFun, M, F2);
                         _ ->
                             %% Generator
-                            eunit_generator(M, F2)
+                            eunit_generator(WrapperFun, M, F2)
                     end,
                 [NewFunction|Acc]
         end,
     lists:foldl(F, [], RawTests).
 
-eunit_test(M, F) ->
-    eunit_test:function_wrapper(M, F).
+eunit_test(WrapperFun, M, F) ->
+    WrapperFun(M, F).
 
-eunit_generator(M, F) ->
-    {generator, eunit_test:function_wrapper(M, F)}.
+eunit_generator(WrapperFun, M, F) ->
+    {generator, WrapperFun(M, F)}.
 
 %%
 %% == run tests ==