aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorHans Bolinder <hasse@erlang.org>2015-01-27 09:27:42 +0100
committerBjörn Gustavsson <bjorn@erlang.org>2015-04-30 12:15:25 +0200
commit4d33124834fbd121969bebc51e95732770a31a95 (patch)
treec6bedb8a88ca6a2e0899b8768cd8578380ab260d
parent99a67b34433e6d77c9f581db6f2fed3824a91280 (diff)
downloadotp-4d33124834fbd121969bebc51e95732770a31a95.tar.gz
otp-4d33124834fbd121969bebc51e95732770a31a95.tar.bz2
otp-4d33124834fbd121969bebc51e95732770a31a95.zip
eunit: Use module erl_anno
-rw-r--r--lib/eunit/src/eunit_autoexport.erl11
1 files changed, 6 insertions, 5 deletions
diff --git a/lib/eunit/src/eunit_autoexport.erl b/lib/eunit/src/eunit_autoexport.erl
index 36ae3b71d7..7bb78f5ea8 100644
--- a/lib/eunit/src/eunit_autoexport.erl
+++ b/lib/eunit/src/eunit_autoexport.erl
@@ -79,11 +79,12 @@ rewrite([{function,_,test,0,_}=F | Fs], As, Module, _Test) ->
rewrite([F | Fs], As, Module, Test) ->
rewrite(Fs, [F | As], Module, Test);
rewrite([], As, Module, Test) ->
+ L = erl_anno:new(0),
{if Test ->
- [{function,0,test,0,
- [{clause,0,[],[],
- [{call,0,{remote,0,{atom,0,eunit},{atom,0,test}},
- [{atom,0,Module}]}]}]}
+ [{function,L,test,0,
+ [{clause,L,[],[],
+ [{call,L,{remote,L,{atom,L,eunit},{atom,L,test}},
+ [{atom,L,Module}]}]}]}
| As];
true ->
As
@@ -96,4 +97,4 @@ module_decl(Name, M, Fs, Exports) ->
Es = if Test -> [{test,0} | Exports];
true -> Exports
end,
- [M, {attribute,0,export,Es} | lists:reverse(Fs1)].
+ [M, {attribute,erl_anno:new(0),export,Es} | lists:reverse(Fs1)].