diff options
author | Hans Bolinder <hasse@erlang.org> | 2015-01-27 09:27:42 +0100 |
---|---|---|
committer | Björn Gustavsson <bjorn@erlang.org> | 2015-04-30 12:15:25 +0200 |
commit | 4d33124834fbd121969bebc51e95732770a31a95 (patch) | |
tree | c6bedb8a88ca6a2e0899b8768cd8578380ab260d | |
parent | 99a67b34433e6d77c9f581db6f2fed3824a91280 (diff) | |
download | otp-4d33124834fbd121969bebc51e95732770a31a95.tar.gz otp-4d33124834fbd121969bebc51e95732770a31a95.tar.bz2 otp-4d33124834fbd121969bebc51e95732770a31a95.zip |
eunit: Use module erl_anno
-rw-r--r-- | lib/eunit/src/eunit_autoexport.erl | 11 |
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)]. |