From e4772c0763e114b490bb32aeec01fe69997d85bf Mon Sep 17 00:00:00 2001
From: Russell Brown <russell.brown@mac.com>
Date: Sun, 4 Jul 2010 22:14:56 +0100
Subject: [PATCH] beam_lib:chunks needs abs path to beam.

Uses code:which or cover:is_compiled to get path the beam for chunks
---
 src/rebar_eunit.erl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/rebar_eunit.erl b/src/rebar_eunit.erl
index b9107ef..67559ca 100644
--- a/src/rebar_eunit.erl
+++ b/src/rebar_eunit.erl
@@ -280,7 +280,14 @@ has_eunit_test_fun(Mod) ->
                     F == test]) =/= 0.
 
 has_header(Mod, Header) ->
-    {ok, {_, [{abstract_code, {_, AC}}]}} = beam_lib:chunks(Mod, [abstract_code]),
+    Mod1 = case code:which(Mod) of 
+               cover_compiled -> 
+                   {file, File} = cover:is_compiled(Mod),
+                   File;
+               undefined -> Mod;
+               L -> L
+           end,
+    {ok, {_, [{abstract_code, {_, AC}}]}} = beam_lib:chunks(Mod1, [abstract_code]),
     length([F || {attribute, 1, file, {F, 1}} <- AC,
                  string:str(F, Header) =/= 0]) =/= 0.